mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-14 21:32:49 -08:00
Code Issues Projects Releases Packages Wiki Activity

The analysis for tail recursion was broken in the presence of a IHS frame.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-06-18 12:17:50 +02:00
parent 1e82630de0
commit 901aeaa81d
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cmp/cmpexit.lsp
View file

@ -182,7 +182,7 @@
(cond ((eq ue 'TAIL-RECURSION-MARK) (return t))
((or (numberp ue) (eq ue 'BDS-BIND) (eq ue 'FRAME))
(return nil))
((or (consp ue) (eq ue 'JUMP)))
((or (consp ue) (eq ue 'JUMP) (eq ue 'IHS-ENV)))
(t (baboon)))))
(defun c2try-tail-recursive-call (fun args)