From ed1e7e7ef6cf1d13ff04dd0c1076d245af09d4d6 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 30 Aug 2007 03:07:30 +0000
Subject: [PATCH] fix bytecode optimizer bug related to a procedure whose body
 is optimized such that it no longer needs to refer to any global

svn: r7225
---
 src/mzscheme/src/fun.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/mzscheme/src/fun.c b/src/mzscheme/src/fun.c
index 2ff50de65e..890959c32d 100644
--- a/src/mzscheme/src/fun.c
+++ b/src/mzscheme/src/fun.c
@@ -920,6 +920,8 @@ scheme_optimize_closure_compilation(Scheme_Object *_data, Optimize_Info *info)
   cl->base_closure_map = dcm;
   if (scheme_env_uses_toplevel(info))
     cl->has_tl = 1;
+  else
+    cl->has_tl = 0;
   cl->body_size = info->size;
 
   info->size++;