[elpa] externals/compat 729c5492df 1/5: compat-macs: Minor simplification

[ELPA Syncer]

branch: externals/compat
commit 729c5492dfafec3e10c7e53df04d14149194ac47
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    compat-macs: Minor simplification
---
 compat-macs.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/compat-macs.el b/compat-macs.el
index 4279df6b9c..02ea7e03ba 100644
--- a/compat-macs.el
+++ b/compat-macs.el
@@ -102,13 +102,13 @@ DEF-FN, INSTALL-FN, CHECK-FN and ATTR."
       (error "%S: Name is equal to realname" name))
     (cond
      ((and (plist-get attr :prefix)
-           (let* ((actual-name (intern (substring (symbol-name name)
-                                                  (length "compat-"))))
-                  (body (funcall install-fn actual-name version)))
+           (let ((actual-name (intern (substring (symbol-name name)
+                                                 (length "compat-")))))
              (when (and (version<= version emacs-version)
                         (fboundp actual-name)
                         check)
-               `(,@check ,(compat--with-feature feature body))))))
+               `(,@check ,(compat--with-feature feature
+                            (funcall install-fn actual-name version)))))))
      ((plist-get attr :realname)
       `(progn
          ,(funcall def-fn realname version)