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

fix another stx-vs-#f bug

Browse Source
This commit is contained in:
Matthew Flatt 2011-06-29 20:48:11 -06:00
parent e16e36e49c
commit 011b79180b
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/racket/src/compile.c
View File

@ -4050,7 +4050,7 @@ scheme_compile_expand_expr(Scheme_Object *form, Scheme_Comp_Env *env,
stx = quick_stx; stx = quick_stx;
quick_stx = NULL; quick_stx = NULL;
} else } else
stx = scheme_datum_to_syntax(stx, scheme_false, form, 0, 2); stx = scheme_datum_to_syntax(stx, scheme_false, form, 0, 0);
if (rec[drec].comp) if (rec[drec].comp)
can_recycle_stx = stx; can_recycle_stx = stx;