Allow leading underscore in keywords.

diff --git a/Parser/grammar.c b/Parser/grammar.c
index 5eebd3192e06dd2bf632644506821409a570f061..608f6bdff480b1630a1016f764d707f43c437130 100644 (file)
--- a/Parser/grammar.c
+++ b/Parser/grammar.c
@@ -216,7 +216,7 @@ translabel(g, lb)
        }
        
        if (lb->lb_type == STRING) {
-               if (isalpha(lb->lb_str[1])) {
+               if (isalpha(lb->lb_str[1]) || lb->lb_str[1] == '_') {
                        char *p;
                        if (debugging)
                                printf("Label %s is a keyword\n", lb->lb_str);