suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

error-message repair

Browse Source
This commit is contained in:
Matthew Flatt 2012-06-23 04:17:37 -07:00
parent c7d181c2a9
commit d5713cf18b
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/racket/src/error.c
View File

@ -2018,12 +2018,11 @@ void scheme_read_err(Scheme_Object *port,
? MZEXN_FAIL_READ_NON_CHAR ? MZEXN_FAIL_READ_NON_CHAR
: MZEXN_FAIL_READ)), : MZEXN_FAIL_READ)),
scheme_make_pair(loc, scheme_null), scheme_make_pair(loc, scheme_null),
"%t%s%t%s%s%s", "%t%s%s%t%s%s",
fn, fnlen, fn, fnlen, ls,
fnlen ? ": " : "", fnlen ? ": " : "",
s, slen, s, slen,
(*suggests ? "\n possible cause: " : ""), suggests, (*suggests ? "\n possible cause: " : ""), suggests);
ls);
} }
static void do_wrong_syntax(const char *where, static void do_wrong_syntax(const char *where,