From f04a92d0099e2d333b8f4a4f9d51933e4cc77756 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 1 Sep 2010 12:02:37 -0600 Subject: [PATCH] fix bug in bytecode optimizer that caused some pessimism --- src/racket/src/syntax.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/racket/src/syntax.c b/src/racket/src/syntax.c index 42b3fd7789..58b8ec4fe6 100644 --- a/src/racket/src/syntax.c +++ b/src/racket/src/syntax.c @@ -3509,7 +3509,7 @@ scheme_optimize_lets(Scheme_Object *form, Optimize_Info *info, int for_inline, i that's not available yet, or that's mutable. */ int vpos; vpos = SCHEME_LOCAL_POS(value); - if ((vpos < head->count) && !pos_EARLIER(vpos, pos)) + if (!post_bind && (vpos < head->count) && !pos_EARLIER(vpos, pos)) value = NULL; else { /* Convert value back to a pre-optimized local coordinates.