From 65c0042b2d09e0733af69721f77166cf5b120ed2 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 16 Feb 2009 14:26:02 +0000 Subject: [PATCH] Stevie's fix to improve no-expression-in-int-def-sequence reporting svn: r13659 --- src/mzscheme/src/eval.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/mzscheme/src/eval.c b/src/mzscheme/src/eval.c index 5614440ee0..4d586e26d9 100644 --- a/src/mzscheme/src/eval.c +++ b/src/mzscheme/src/eval.c @@ -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 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_Compile_Info recs[2]; DupCheckRecord r; @@ -6595,7 +6595,7 @@ scheme_compile_expand_block(Scheme_Object *forms, Scheme_Comp_Env *env, more = 0; } else { /* 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"); } }