feature/native-comp 6d83902 10/11: * lisp/emacs-lisp/comp.el (comp-body-eff): Improve style.

[Andrea Corallo]

branch: feature/native-comp
commit 6d83902ffd0c50a3157c4c61cd636433b212f709
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>

    * 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 8b8b111..07b0cce 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)