From b0f683ec16ae55f2788e21e30db21044766fcad9 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Thu, 2 Jul 2020 21:45:42 +0200 Subject: [PATCH] * 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. --- lisp/emacs-lisp/comp.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)