From a2e41f4588662552e82a89571bbb286b91bfea1e Mon Sep 17 00:00:00 2001
From: Vincent St-Amour <stamourv@racket-lang.org>
Date: Wed, 28 Jul 2010 19:06:23 -0400
Subject: [PATCH] Fixed a bug in the complex use-site analysis.

original commit: 855928eb7b446d7c7eb741afe8f3a6e632f95141
---
 collects/typed-scheme/optimizer/unboxed-let.rkt | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/typed-scheme/optimizer/unboxed-let.rkt b/collects/typed-scheme/optimizer/unboxed-let.rkt
index 00dc8742..00a2c5ae 100644
--- a/collects/typed-scheme/optimizer/unboxed-let.rkt
+++ b/collects/typed-scheme/optimizer/unboxed-let.rkt
@@ -148,8 +148,8 @@
                            #'#%variable-reference #'with-continuation-mark))
        (look-at #'(expr ...))]
             
-      ;; not used, safe to unbox
-      [_ #t]))
+      ;; not used, not worth unboxing
+      [_ #f]))
 
   ;; of course, if the var is mutated, we can't do anything
   (and (not (is-var-mutated? v))