1 files changed, 9 insertions, 1 deletions
diff --git a/parser.l b/parser.l
index ad7b013f..8a95d2ec 100644
--- a/parser.l
+++ b/parser.l
@@ -564,6 +564,10 @@ UONLY   {U2}{U}|{U3}{U}{U}|{U4}{U}{U}{U}
   return TEXT;
 }
 
+<SPECIAL>[\\]. {
+  yyerrorf(lit("unrecognized escape: \\~a"), chr(yytext[1]), nao);
+}
+
 <SPECIAL,NESTED,BRACED>[;].* {
   /* comment */
 }
@@ -688,7 +692,7 @@ UONLY   {U2}{U}|{U3}{U}{U}|{U4}{U}{U}{U}
   return yytext[0];
 }
 
-<STRLIT,QSILIT>[\\][abtnvfre"`'\\] {
+<STRLIT,QSILIT>[\\][abtnvfre "`'\\ ] {
   yylval.chr = char_esc(yytext[1]);
   return LITCHAR;
 }
@@ -702,6 +706,10 @@ UONLY   {U2}{U}|{U3}{U}{U}|{U4}{U}{U}{U}
   return LITCHAR;
 }
 
+<STRLIT,QSILIT>[\\]. {
+  yyerrorf(lit("unrecognized escape: \\~a"), chr(yytext[1]), nao);
+}
+
 <CHRLIT>(x{HEX}+|o{OCT}+) {
   yylval.chr = num_esc(yytext);
   return LITCHAR;