0.pre7.31:

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

diff --git a/src/compiler/ir1opt.lisp b/src/compiler/ir1opt.lisp
index 25b0b69..f1654c6 100644 (file)
--- a/src/compiler/ir1opt.lisp
+++ b/src/compiler/ir1opt.lisp
@@ -732,8 +732,7 @@
         (tail (component-tail (block-component block)))
         (succ (first (block-succ block))))
     (unless (or (and (eq call (block-last block)) (eq succ tail))
-               (block-delete-p block)
-               *converting-for-interpreter*)
+               (block-delete-p block))
       (when (or (and (eq (continuation-asserted-type cont) *empty-type*)
                     (not (or ir1-p (eq (continuation-kind cont) :deleted))))
                (eq (node-derived-type call) *empty-type*))