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

fix error message for expected symbols to local-expand

Browse Source 
svn: r6030
This commit is contained in:
Matthew Flatt 2007-04-24 01:38:34 +00:00
parent 08a13a18cb
commit 41db6cbaec
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -7761,7 +7761,7 @@ do_local_expand(const char *name, int for_stx, int catch_lifts, int for_expr, in
kind = SCHEME_INTDEF_FRAME; kind = SCHEME_INTDEF_FRAME;
else { else {
scheme_wrong_type(name, scheme_wrong_type(name,
"'expression, 'module, 'top-level, or non-empty list", "'expression, 'module, 'module-begin, 'top-level, or non-empty list",
1, argc, argv); 1, argc, argv);
return NULL; return NULL;
} }