diff options
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/comp.el | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index 8b8b111640a..07b0ccee3cb 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -1127,13 +1127,9 @@ When BODY is auto guess function name form the LAP byte-code name. Otherwise expect lname fnname." (pcase (car body) ('auto - (list `(comp-emit-set-call-subr - ',(comp-op-to-fun op-name) - ,sp-delta))) + `((comp-emit-set-call-subr ',(comp-op-to-fun op-name) ,sp-delta))) ((pred symbolp) - (list `(comp-emit-set-call-subr - ',(car body) - ,sp-delta))) + `((comp-emit-set-call-subr ',(car body) ,sp-delta))) (_ body)))) (defmacro comp-op-case (&rest cases) |