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