diff options
| -rw-r--r-- | byterun/lexing.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/byterun/lexing.c b/byterun/lexing.c index c5155587e..df7fdfe98 100644 --- a/byterun/lexing.c +++ b/byterun/lexing.c @@ -74,7 +74,7 @@ value lex_engine(tbl, start_state, lexbuf) /* ML */ } /* See if we need a refill */ if (lexbuf->lex_curr_pos >= lexbuf->lex_buffer_len){ - if (lexbuf->lex_eof_reached == Val_int (0)){ + if (lexbuf->lex_eof_reached == Val_bool (0)){ return Val_int(-state - 1); }else{ c = 256; @@ -101,7 +101,7 @@ value lex_engine(tbl, start_state, lexbuf) /* ML */ /* Erase the EOF condition only if the EOF pseudo-character was consumed by the automaton (i.e. there was no backtrack above) */ - if (c == 256) lexbuf->lex_eof_reached = Val_int (0); + if (c == 256) lexbuf->lex_eof_reached = Val_bool (0); } } } |