Skip to content
Snippets Groups Projects
Commit 5ad686a7 authored by ram's avatar ram
Browse files

Changed the does-not-return tail recursion inhibition to only apply to

full calls.
parent 13e142c1
No related branches found
No related tags found
No related merge requests found
...@@ -359,6 +359,8 @@ ...@@ -359,6 +359,8 @@
(tails (lambda-tail-set fun))) (tails (lambda-tail-set fun)))
(do-uses (use result) (do-uses (use result)
(when (and (immediately-used-p result use) (when (and (immediately-used-p result use)
(not (eq (node-derived-type use) *empty-type*))) (or (not (eq (node-derived-type use) *empty-type*))
(not (basic-combination-p use))
(eq (basic-combination-kind use) :local)))
(setf (node-tail-p use) tails))))))) (setf (node-tail-p use) tails)))))))
(undefined-value)) (undefined-value))
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