From 57208dfe140f2d8a1ffa5fc02e0b73bdf005ebf9 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 5 Feb 2009 01:38:16 +0000
Subject: [PATCH] lift letrec-bound procs that are not inside a proc

svn: r13446
---
 src/mzscheme/src/fun.c | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/src/mzscheme/src/fun.c b/src/mzscheme/src/fun.c
index 1bdb72da46..89a8be5665 100644
--- a/src/mzscheme/src/fun.c
+++ b/src/mzscheme/src/fun.c
@@ -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;
   }