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

lift letrec-bound procs that are not inside a proc

Browse Source 
svn: r13446
This commit is contained in:
Matthew Flatt 2009-02-05 01:38:16 +00:00
parent 4f2070831b
commit 57208dfe14
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/mzscheme/src/fun.c
View File

@ -1249,10 +1249,8 @@ scheme_resolve_closure_compilation(Scheme_Object *_data, Resolve_Info *info,
data->iso.so.type = scheme_unclosed_procedure_type;
if (convert || can_lift) {
if (!scheme_resolving_in_procedure(info)) {
convert = 0;
can_lift = 0;
}
if (!convert && !scheme_resolving_in_procedure(info))
can_lift = 0; /* no point in lifting when outside of a lambda or letrec */
if (!info->lifts)
can_lift = 0;
}