* parser.y (yybadtoken): Print unexpected character

literally rather than as a Lisp character literal.

1 files changed, 1 insertions, 1 deletions

diff --git a/parser.y b/parser.y
index c1eb74d8..343981f0 100644
--- a/parser.y
+++ b/parser.y
@@ -1425,7 +1425,7 @@ void yybadtoken(parser_t *parser, int tok, val context)
       else if (tok == YYEMPTY)
         return;
       else
-        yyerrorf(scnr, lit("unexpected ~s"), chr(tok), nao);
+        yyerrorf(scnr, lit("unexpected character ~a"), chr(tok), nao);
 }
 
 int parse_once(val stream, val name, parser_t *parser)