From c4a297c57944d71fa0e00746d82372e334c513d2 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Sun, 7 Oct 2007 18:00:35 +0000 Subject: [PATCH] uniform way to report bad characters svn: r7444 --- src/mzscheme/src/read.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/mzscheme/src/read.c b/src/mzscheme/src/read.c index f275551d3d..34085c0e08 100644 --- a/src/mzscheme/src/read.c +++ b/src/mzscheme/src/read.c @@ -2602,7 +2602,7 @@ read_list(Scheme_Object *port, if ((effective_ch == closer) && !params->honu_mode) { if (shape == mz_shape_hash_elem) { scheme_read_err(port, stxsrc, startline, startcol, start, SPAN(port, start), ch, indentation, - "read: expected %s and value for hash before '%c'", + "read: expected %s and value for hash before `%c'", dot_name(params), ch); return NULL; @@ -4129,7 +4129,7 @@ static void unexpected_closer(int ch, } } - scheme_read_err(port, stxsrc, line, col, pos, 1, 0, indentation, "read: %s '%c'%s", + scheme_read_err(port, stxsrc, line, col, pos, 1, 0, indentation, "read: %s `%c'%s", found, ch, suggestion); }