parser: #; tests and bugfixes.

This is motivated by the recent crash regression in the #;
comment out mechanism. The parser doesn't have adequate
coverage in the test suite.

* tests/012/syntax.tl: New file, for testing syntax.
A problem was found #;.expr did not work inside a list,
only at top level. It required a space before the dot.

* parser.y  (listacc): A couple of productions to handle
hash-semicolon immediately followed by a dot without
any whitespace, and then by an expression.

* y.tab.c.shipped: Regenerated.

1 files changed, 7 insertions, 0 deletions

diff --git a/parser.y b/parser.y
index 875a808e..d15aa225 100644
--- a/parser.y
+++ b/parser.y
@@ -1005,9 +1005,16 @@ listacc : n_expr                { $$ = cons($1, nil);
           n_expr                { parser->ignore = 0;
                                   $$ = cons(nil, nil);
                                   $$->c.cdr = $$; }
+        | HASH_SEMI '.'         { parser->ignore = 1; }
+          n_expr                { parser->ignore = 0;
+                                  $$ = cons(nil, nil);
+                                  $$->c.cdr = $$; }
         | listacc HASH_SEMI     { parser->ignore = 1; }
           n_expr                { parser->ignore = 0;
                                   $$ = $1; }
+        | listacc HASH_SEMI '.' { parser->ignore = 1; }
+          n_expr                { parser->ignore = 0;
+                                  $$ = $1; }
         | listacc n_expr        { uses_or2;
                                   $$ = rlc(cons($2, $1->c.cdr), or2($2, $1->c.cdr));
                                   $1->c.cdr = $$; }