feature/native-comp 3e38435 5/5: * Fix 'comp-call-optim pass' for anonymous lambdas

[Andrea Corallo]

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

    * Fix 'comp-call-optim pass' for anonymous lambdas
    
        * lisp/emacs-lisp/comp.el (comp-call-optim-func): Remove anonymous
        lambdas gate.
        (comp-call-optim-form-call): Add the correct missing condition.
---
 lisp/emacs-lisp/comp.el | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 9b26f6c..b35fe9b 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -2346,6 +2346,7 @@ FUNCTION can be a function-name or byte compiled 
function."
          ;; Intra compilation unit procedure call optimization.
          ;; Attention speed 3 triggers this for non self calls too!!
          ((and comp-func-callee
+               (comp-func-c-name comp-func-callee)
                (or (and (>= (comp-func-speed comp-func) 3)
                         (comp-func-unique-in-cu-p callee))
                    (and (>= (comp-func-speed comp-func) 2)
@@ -2365,9 +2366,7 @@ FUNCTION can be a function-name or byte compiled 
function."
 (defun comp-call-optim-func ()
   "Perform the trampoline call optimization for the current function."
   (cl-loop
-   with self = (comp-func-name comp-func)
    for b being each hash-value of (comp-func-blocks comp-func)
-   when self ;; FIXME add proper anonymous lambda support.
    do (comp-loop-insn-in-block b
         (pcase insn
           (`(set ,lval (callref funcall ,f . ,rest))