projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.9.0.20:
[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)
(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)))
(delete-block block))))
(let ((2comp (component-info component)))