From df2e50497d79e07c7ca75d702458b994a429854d Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 10 Nov 2009 02:36:46 +0000 Subject: [PATCH] fix 'lambda' expander (PR 10534) svn: r16648 --- src/mzscheme/src/syntax.c | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/src/mzscheme/src/syntax.c b/src/mzscheme/src/syntax.c index c2147ea69d..eaf743382c 100644 --- a/src/mzscheme/src/syntax.c +++ b/src/mzscheme/src/syntax.c @@ -569,6 +569,7 @@ lambda_expand(Scheme_Object *form, Scheme_Comp_Env *env, Scheme_Expand_Info *ere { Scheme_Object *args, *body, *fn; Scheme_Comp_Env *newenv; + Scheme_Expand_Info erec1; SCHEME_EXPAND_OBSERVE_PRIM_LAMBDA(erec[drec].observer); @@ -594,12 +595,15 @@ lambda_expand(Scheme_Object *form, Scheme_Comp_Env *env, Scheme_Expand_Info *ere fn = SCHEME_STX_CAR(form); + scheme_init_expand_recs(erec, drec, &erec1, 1); + erec1.value_name = scheme_false; + return scheme_datum_to_syntax(cons(fn, cons(args, scheme_expand_block(body, newenv, - erec, - drec))), + &erec1, + 0))), form, form, 0, 2); }