Fixed a bug in the complex use-site analysis.

2010-07-28 19:06:23 -04:00 · 2010-07-28 19:06:23 -04:00 · 855928eb7b
commit 855928eb7b
parent 4633a2a30a
1 changed files with 2 additions and 2 deletions
--- 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))