uniform way to report bad characters
svn: r7444
This commit is contained in:
parent
fe703abf43
commit
c4a297c579
|
@ -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);
|
||||
}
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user