diff options
| author | Andrea Corallo <akrl@sdf.org> | 2023-03-21 11:51:03 +0100 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2023-03-21 12:10:31 +0100 |
| commit | 4a7a0c9a9f521b04b23580901e9c0a662b504e32 (patch) | |
| tree | b620a7e1365f5c1b70327c636dc3338ef836c7ac /lisp/emacs-lisp | |
| parent | 4a6eefb93a5781b08903f27325676cda0a40321c (diff) | |
| download | emacs-4a7a0c9a9f521b04b23580901e9c0a662b504e32.tar.gz emacs-4a7a0c9a9f521b04b23580901e9c0a662b504e32.tar.bz2 emacs-4a7a0c9a9f521b04b23580901e9c0a662b504e32.zip | |
* lisp/emacs-lisp/comp.el (comp-emit-set-call-subr): Improve 263d6c38539
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/comp.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index febca8df19c..3dcbc2cca4d 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -1773,7 +1773,7 @@ SP-DELTA is the stack adjustment." (maxarg (cdr arity))) (when (eq maxarg 'unevalled) (signal 'native-ice (list "subr contains unevalled args" subr-name))) - (if (not (subrp subr-name)) + (if (not (subr-primitive-p subr-name)) ;; The primitive got redefined before the compiler is ;; invoked! (bug#61917) (comp-emit-set-call `(callref funcall |