From 87456836e1bd7d1e35a92d55a830e1c1f1f7ccff Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 26 Jul 2019 19:51:48 -0700 Subject: parser: give start of a bad forms even if line 1. * parser.y (parse): Emit the "while parsing form starting at line N" even if N is 1. I think the idea here was supposed to be to suppress this additional message for parses that don't advance from the starting line, so I'm fixing it that way. --- parser.y | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/parser.y b/parser.y index c2d809c9..78cdf9a0 100644 --- a/parser.y +++ b/parser.y @@ -1908,9 +1908,12 @@ int parse(parser_t *parser, val name, enum prime_parser prim) uw_catch_end; - if (parser->errors && parser->syntax_tree == nil && start_line != 1) + if (parser->errors && parser->syntax_tree == nil && + parser->lineno != start_line) + { yyerrorf(parser->scanner, lit("while parsing form starting at line ~a"), num(start_line), nao); + } return res; } -- cgit v1.2.3