Добавлена поддержка подчёркиваний

[dsw-obn.git] / src / oberon.c

diff --git a/src/oberon.c b/src/oberon.c
index d6aefad6c94437641293674e57a730b7de2656e0..fbf0c455fabcf926d582592fe5f23c86a726d928 100644 (file)
--- a/src/oberon.c
+++ b/src/oberon.c
@@ -359,7 +359,7 @@ oberon_read_ident(oberon_context_t * ctx)
        int start = ctx -> code_index;
 
        oberon_get_char(ctx);
-       while(isalnum(ctx -> c))
+       while(isalnum(ctx -> c) || ctx -> c == '_')
        {
                oberon_get_char(ctx);
        }
@@ -890,7 +890,7 @@ oberon_read_token(oberon_context_t * ctx)
        oberon_skip_space(ctx);
 
        int c = ctx -> c;
-       if(isalpha(c))
+       if(isalpha(c) || c == '_')
        {
                oberon_read_ident(ctx);
        }