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

fix exn message

Browse Source 
svn: r3790
This commit is contained in:
Matthew Flatt 2006-07-24 12:59:01 +00:00
parent a872136cea
commit 88cf3dda2e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/mzscheme/src/eval.c
View File

@ -6451,7 +6451,7 @@ do_local_expand(const char *name, int for_stx, int catch_lifts, int argc, Scheme
i = SCHEME_CAR(l);
if (!SCHEME_STX_SYMBOLP(i)) {
scheme_wrong_type(name, "list of identifier syntax", 2, argc, argv);
scheme_wrong_type(name, "#f or list of identifier syntax", 2, argc, argv);
return NULL;
}
@ -6459,7 +6459,7 @@ do_local_expand(const char *name, int for_stx, int catch_lifts, int argc, Scheme
scheme_set_local_syntax(pos++, i, stop_expander, env);
}
if (!SCHEME_NULLP(l)) {
scheme_wrong_type(name, "list of identifier syntax", 2, argc, argv);
scheme_wrong_type(name, "#f or list of identifier syntax", 2, argc, argv);
return NULL;
}
}