0.pre7.31:

[sbcl.git] / src / compiler / envanal.lisp

diff --git a/src/compiler/envanal.lisp b/src/compiler/envanal.lisp
index f6d353c..11b86c1 100644 (file)
--- a/src/compiler/envanal.lisp
+++ b/src/compiler/envanal.lisp
@@ -249,8 +249,7 @@
       (dolist (exit (entry-exits entry))
        (let ((target-env (node-environment entry)))
          (if (eq (node-environment exit) target-env)
-             (unless *converting-for-interpreter*
-               (maybe-delete-exit exit))
+             (maybe-delete-exit exit)
              (note-non-local-exit target-env exit))))))
 
   (values))