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

Stevie's fix to improve no-expression-in-int-def-sequence reporting

Browse Source 
svn: r13659
This commit is contained in:
Matthew Flatt 2009-02-16 14:26:02 +00:00
parent 54d17355c3
commit 65c0042b2d
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

@ -6313,7 +6313,7 @@ scheme_compile_expand_block(Scheme_Object *forms, Scheme_Comp_Env *env,
It is espcailly ugly because we have to expand macros It is espcailly ugly because we have to expand macros
before deciding what we have. */ before deciding what we have. */
{ {
Scheme_Object *first, *rib, *ctx, *ectx; Scheme_Object *first, *rib, *ctx, *ectx, *orig = forms;
Scheme_Comp_Env *xenv = NULL; Scheme_Comp_Env *xenv = NULL;
Scheme_Compile_Info recs[2]; Scheme_Compile_Info recs[2];
DupCheckRecord r; DupCheckRecord r;
@ -6595,7 +6595,7 @@ scheme_compile_expand_block(Scheme_Object *forms, Scheme_Comp_Env *env,
more = 0; more = 0;
} else { } else {
/* Empty body: illegal. */ /* Empty body: illegal. */
scheme_wrong_syntax(scheme_begin_stx_string, NULL, forms, scheme_wrong_syntax(scheme_begin_stx_string, NULL, orig,
"no expression after a sequence of internal definitions"); "no expression after a sequence of internal definitions");
} }
} }