diff options
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/comp.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index f63e5842bc5..da1d3f160f0 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -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)) |