From 6d83902ffd0c50a3157c4c61cd636433b212f709 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Wed, 23 Sep 2020 21:50:20 +0200 Subject: [PATCH] * lisp/emacs-lisp/comp.el (comp-body-eff): Improve style. --- lisp/emacs-lisp/comp.el | 8 ++------ 1 file 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) -- 2.39.5