0.8.3.62:

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

diff --git a/src/compiler/control.lisp b/src/compiler/control.lisp
index c86f145..2e1db87 100644 (file)
--- a/src/compiler/control.lisp
+++ b/src/compiler/control.lisp
@@ -200,7 +200,7 @@
 
     (do-blocks (block component)
       (unless (block-flag block)
-       (event control-deleted-block (continuation-next (block-start block)))
+       (event control-deleted-block (block-start-node block))
        (delete-block block))))
 
   (let ((2comp (component-info component)))