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

fix 'lambda' expander (PR 10534)

Browse Source 
svn: r16648
This commit is contained in:
Matthew Flatt 2009-11-10 02:36:46 +00:00
parent 89f5ad32b4
commit df2e50497d
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/mzscheme/src/syntax.c
View File

@ -569,6 +569,7 @@ lambda_expand(Scheme_Object *form, Scheme_Comp_Env *env, Scheme_Expand_Info *ere
{ {
Scheme_Object *args, *body, *fn; Scheme_Object *args, *body, *fn;
Scheme_Comp_Env *newenv; Scheme_Comp_Env *newenv;
Scheme_Expand_Info erec1;
SCHEME_EXPAND_OBSERVE_PRIM_LAMBDA(erec[drec].observer); 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); 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, return scheme_datum_to_syntax(cons(fn,
cons(args, cons(args,
scheme_expand_block(body, scheme_expand_block(body,
newenv, newenv,
erec, &erec1,
drec))), 0))),
form, form, form, form,
0, 2); 0, 2);
} }