summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp
diff options
context:
space:
mode:
authorAndrea Corallo <akrl@sdf.org>2020-07-02 21:45:42 +0200
committerAndrea Corallo <akrl@sdf.org>2020-07-02 22:55:42 +0200
commitb0f683ec16ae55f2788e21e30db21044766fcad9 (patch)
tree0305b251821eb6e2fe7301902b3f1d95e360eaac /lisp/emacs-lisp
parent7e004d24a4abaa4b5aa9f0f1cd4bc70264396ad5 (diff)
downloademacs-b0f683ec16ae55f2788e21e30db21044766fcad9.tar.gz
emacs-b0f683ec16ae55f2788e21e30db21044766fcad9.tar.bz2
emacs-b0f683ec16ae55f2788e21e30db21044766fcad9.zip
* Fix missing tail recursion elimination
* lisp/emacs-lisp/comp.el (comp-tco-func): Fix tail recursion elimination given now functions in LIMPLE are expressed with the C name.
Diffstat (limited to 'lisp/emacs-lisp')
-rw-r--r--lisp/emacs-lisp/comp.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index a16cf1dcc88..81612398c7b 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -2299,7 +2299,7 @@ Return the list of m-var ids nuked."
(`((set ,l-val (direct-call ,func . ,args))
(comment ,_comment)
(return ,ret-val))
- (when (and (eq func (comp-func-name comp-func))
+ (when (and (string= func (comp-func-c-name comp-func))
(eq l-val ret-val))
(let ((tco-seq (comp-form-tco-call-seq args)))
(setf (car insns-seq) (car tco-seq)