Bugfix: lexer loses unmatched "hold char" between top-level forms.

Test case: file containing 4(prinl 3). Scanner consumes 4 and (.
The ( is lost when the scanner is reset for the next call to yyparse,
resulting in jut prinl being read and interpreted as a variable.

* parser.c (prime_parser): If present, append hold byte to priming
string. Takes parser_t * instead of parser, and returns void now.

* parser.l (reset_scanner): Now returns int value, the value
of the scanner's yy_hold_char variable which is nonzero when
the scanner is hanging on to an unmatched byte of input.

* parser.h (reset_scanner, prime_parser): Declarations updated.

* parser.y (parse): Pass hold byte returned by reset_scanner to
prime_parser.

1 files changed, 1 insertions, 2 deletions

diff --git a/parser.y b/parser.y
index de3f600d..e71adfda 100644
--- a/parser.y
+++ b/parser.y
@@ -1463,8 +1463,7 @@ int parse(parser_t *parser)
   parser->errors = 0;
   parser->prepared_msg = nil;
   parser->syntax_tree = nil;
-  prime_parser(parser->parser);
-  reset_scanner(parser->scanner);
+  prime_parser(parser, reset_scanner(parser->scanner));
 
   res = yyparse(parser->scanner, parser);