* parser.y (yybadtoken): Print unexpected character

literally rather than as a Lisp character literal.

2 files changed, 6 insertions, 1 deletions

diff --git a/ChangeLog b/ChangeLog
index e5fc62a0..40aaea74 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2015-06-10  Kaz Kylheku  <kaz@kylheku.com>
+
+	* parser.y (yybadtoken): Print unexpected character
+	literally rather than as a Lisp character literal.
+
 2015-06-08  Kaz Kylheku  <kaz@kylheku.com>
 
 	Code simplification.
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)