diff --git a/compiler/ir1util.lisp b/compiler/ir1util.lisp index 24b821245c2a5141e20010a1a51caf102b4fce5e..d65c488fe0f898638b81edf1c2d770ae4c54f320 100644 --- a/compiler/ir1util.lisp +++ b/compiler/ir1util.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1util.lisp,v 1.98 2003/10/13 10:24:47 gerd Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1util.lisp,v 1.99 2003/10/21 13:09:23 gerd Exp $") ;;; ;;; ********************************************************************** ;;; @@ -772,10 +772,6 @@ (let ((return-block (node-block return))) (when (and return-block (not (block-delete-p return-block))) - (unless *converting-for-interpreter* - ;; FIXME: Can't do this if converting for interpretation; - ;; it leads to strange errors. Go figure. - (mark-for-deletion return-block)) (unlink-blocks return-block (component-tail component))))) (setf (component-reanalyze component) t) (let ((tails (lambda-tail-set leaf)))