summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog5
-rw-r--r--parser.y2
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)