mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-26 07:11:34 -08:00
Code Issues Projects Releases Wiki Activity

fix aliased function names trampoline removal

Browse source
This commit is contained in:
Andrea Corallo 2019-12-29 19:16:53 +01:00
parent f0290502f3
commit 976b7fcc8c
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/emacs-lisp/comp.el
View file

@ -1657,7 +1657,8 @@ Return t if something was changed."
(cond
((and subrp (not (subr-native-elisp-p f)))
;; Trampoline removal.
(let* ((maxarg (cdr (subr-arity f)))
(let* ((callee (intern (subr-name f))) ; Fix aliased names.
(maxarg (cdr (subr-arity f)))
(call-type (if (if subrp
(not (numberp maxarg))
(comp-nargs-p callee-in-unit))