* parser.l: In the CHRLIT state, return a nonblank character as an

IDENT token. This allows for character literals like #\$.

1 files changed, 5 insertions, 0 deletions

diff --git a/parser.l b/parser.l
index e22c6d74..53644a03 100644
--- a/parser.l
+++ b/parser.l
@@ -585,6 +585,11 @@ UONLY   {U2}{U}|{U3}{U}{U}|{U4}{U}{U}{U}
                           return IDENT;
                         }
 
+<CHRLIT>[^ \t\n]        {
+                          yylval.lexeme = utf8_dup_from(yytext);
+                          return IDENT; /* hack */
+                        }
+
 <STRLIT>\n              {
                           yyerrprepf(lit("newline in string literal"), nao);
                           lineno++;