feature/native-comp b0f683e 5/5: * Fix missing tail recursion elimination

[Andrea Corallo]

branch: feature/native-comp
commit b0f683ec16ae55f2788e21e30db21044766fcad9
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>

    * 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 a16cf1d..8161239 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)