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

fix lifting bug introduced in previous commit

Browse Source 
svn: r13079
This commit is contained in:
Matthew Flatt 2009-01-12 22:16:08 +00:00
parent bdd29b22cf
commit f07803c3cd
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/mzscheme/src/eval.c
View File

@ -5039,7 +5039,7 @@ static void *compile_k(void)
rl = scheme_frame_get_require_lifts(cenv); rl = scheme_frame_get_require_lifts(cenv);
if (!SCHEME_NULLP(l) if (!SCHEME_NULLP(l)
|| !SCHEME_NULLP(rl)) { || !SCHEME_NULLP(rl)) {
l = scheme_append(rl, l); rl = scheme_append(rl, l);
rl = icons(scheme_datum_to_syntax(begin_symbol, scheme_false, scheme_sys_wraps(cenv), 0, 0), rl = icons(scheme_datum_to_syntax(begin_symbol, scheme_false, scheme_sys_wraps(cenv), 0, 0),
rl); rl);
form = scheme_datum_to_syntax(rl, scheme_false, scheme_false, 0, 0); form = scheme_datum_to_syntax(rl, scheme_false, scheme_false, 0, 0);