From 8ae46ead66f070421e4d8fdf2e75e76965c7c398 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 20 Jun 2010 05:25:12 -1000
Subject: [PATCH] fix bytecode-compiler step that drops an unused flonum let
 RHS

---
 src/racket/src/eval.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/racket/src/eval.c b/src/racket/src/eval.c
index 6203dad37a..4dfbf2acf7 100644
--- a/src/racket/src/eval.c
+++ b/src/racket/src/eval.c
@@ -5390,7 +5390,7 @@ static Scheme_Object *sfs_let_one(Scheme_Object *o, SFS_Info *info)
 
   et = scheme_get_eval_type(lo->value);
   SCHEME_LET_EVAL_TYPE(lo) = (et 
-                              | (SCHEME_LET_EVAL_TYPE(lo) & LET_ONE_FLONUM) 
+                              | (unused ? 0 : (SCHEME_LET_EVAL_TYPE(lo) & LET_ONE_FLONUM))
                               | (unused ? LET_ONE_UNUSED : 0));
 
   return o;