Fixed a bug in the complex use-site analysis.

original commit: 855928eb7b446d7c7eb741afe8f3a6e632f95141
2010-07-28 19:06:23 -04:00 · 2010-07-28 19:06:23 -04:00 · a2e41f4588
commit a2e41f4588
parent 425ec70787
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))