diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2011-09-26 21:39:44 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2011-09-26 21:45:45 -0700 |
commit | 7185545a38de4f53bf3c92be5d1d97d2928ffbb9 (patch) | |
tree | fcc1a4a6f69cf716e9212802a777068444756411 /parser.y | |
parent | 070d3dfe7759943406cd76e7aebe72bf92ab3503 (diff) | |
download | txr-7185545a38de4f53bf3c92be5d1d97d2928ffbb9.tar.gz txr-7185545a38de4f53bf3c92be5d1d97d2928ffbb9.tar.bz2 txr-7185545a38de4f53bf3c92be5d1d97d2928ffbb9.zip |
Bugfixes: Consistent escaping in various literals. Double
backslash codes for single backslash. Output clause can be empty.
* parser.l (char_esc): Backslash handled.
Use internal_error rather than abort.
(REGCHAR, LITCHAR): Backslash added to lexical syntax.
* parser.y (output_clause): Allow empty output clause.
Diffstat (limited to 'parser.y')
-rw-r--r-- | parser.y | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -271,6 +271,8 @@ output_clause : OUTPUT ')' o_elems '\n' END newl { $$ = nil; yyerror("obsolete output syntax: trailing material"); } | OUTPUT ')' newl + END newl { $$ = list(output_s, nao); } + | OUTPUT ')' newl out_clauses END newl { $$ = list(output_s, $4, nao); } | OUTPUT exprs ')' newl |