From ed66b10d142485f139d2762471e5c708b4124f56 Mon Sep 17 00:00:00 2001 From: gerd <gerd> Date: Tue, 21 Oct 2003 13:09:23 +0000 Subject: [PATCH] * src/compiler/ir1util.lisp (delete-lambda): Don't mark the return-block for deletion. --- compiler/ir1util.lisp | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/compiler/ir1util.lisp b/compiler/ir1util.lisp index 24b821245..d65c488fe 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))) -- GitLab