X-Git-Url: http://deadsoftware.ru/gitweb?p=dsw-obn.git;a=blobdiff_plain;f=src%2Foberon.c;h=fbf0c455fabcf926d582592fe5f23c86a726d928;hp=d6aefad6c94437641293674e57a730b7de2656e0;hb=0b68ac1af511e1e47b1e6a8f5617200db6819ee5;hpb=7b7ff82e330bd4c42a9987709839251c5ac69089

diff --git a/src/oberon.c b/src/oberon.c
index d6aefad..fbf0c45 100644
--- 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);
 	}