From b6057e0f7e7ef3f40b0877f8da48ec98d89045c7 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Wed, 10 Jun 2015 06:05:00 -0700 Subject: * parser.y (yybadtoken): Print unexpected character literally rather than as a Lisp character literal. --- ChangeLog | 5 +++++ parser.y | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index e5fc62a0..40aaea74 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2015-06-10 Kaz Kylheku + + * parser.y (yybadtoken): Print unexpected character + literally rather than as a Lisp character literal. + 2015-06-08 Kaz Kylheku 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) -- cgit v1.2.3