From: Andrea Corallo <akrl@sdf.org>
Date: Wed, 23 Sep 2020 19:50:20 +0000 (+0200)
Subject: * lisp/emacs-lisp/comp.el (comp-body-eff): Improve style.
X-Git-Tag: emacs-28.0.90~2727^2~421
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6d83902ffd0c50a3157c4c61cd636433b212f709;p=emacs.git

* lisp/emacs-lisp/comp.el (comp-body-eff): Improve style.
---

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)