From b6057e0f7e7ef3f40b0877f8da48ec98d89045c7 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Wed, 10 Jun 2015 06:05:00 -0700
Subject: * parser.y (yybadtoken): Print unexpected character literally rather
 than as a Lisp character literal.

---
 parser.y | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'parser.y')

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