Skip to content
Snippets Groups Projects
Commit 0324f99d authored by ram's avatar ram
Browse files

In PROPAGATE-LET-ARGS, propagate the arg type to the refs before

substituting rather than after, since after substituting, there are no
refs to propagate to.
parent 078dfe2f
No related branches found
No related tags found
No related merge requests found
......@@ -1054,8 +1054,8 @@
(values-subtypep
(node-derived-type use)
(continuation-asserted-type arg)))
(substitute-leaf leaf var)
(propagate-to-refs var (continuation-type arg))
(substitute-leaf leaf var)
t)))))
((and (null (rest (leaf-refs var)))
(substitute-single-use-continuation arg var)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment