0.pre7.117:

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

diff --git a/src/compiler/ir1final.lisp b/src/compiler/ir1final.lisp
index 50e9cc2..bdf3bca 100644 (file)
--- a/src/compiler/ir1final.lisp
+++ b/src/compiler/ir1final.lisp
@@ -102,7 +102,7 @@
     (let ((atype (info :function :assumed-type name)))
       (dolist (ref (leaf-refs var))
        (let ((dest (continuation-dest (node-cont ref))))
-         (when (and (eq (block-component (node-block ref)) component)
+         (when (and (eq (node-component ref) component)
                     (combination-p dest)
                     (eq (continuation-use (basic-combination-fun dest)) ref))
            (setq atype (note-function-use dest atype)))))