[elpa] externals/compat 3bd6304770 3/5: compat-macs: Formatting

[ELPA Syncer]

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

    compat-macs: Formatting
---
 compat-macs.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/compat-macs.el b/compat-macs.el
index 4ba7cc1d57..0e81eab110 100644
--- a/compat-macs.el
+++ b/compat-macs.el
@@ -92,9 +92,9 @@ a plist of predicates for arguments which are passed to FUN."
 (defun compat-macs--defun (type name arglist docstring rest)
   "Define function NAME of TYPE with ARGLIST and DOCSTRING.
 REST are attributes and the function BODY."
-  (compat-macs--guard rest `(:extended ,(lambda (x) (or (booleanp x) 
(version-to-list x)))
-                        :obsolete ,(lambda (x) (or (booleanp x) (stringp x)))
-                        :body t)
+  (compat-macs--guard rest (list :extended (lambda (x) (or (booleanp x) 
(version-to-list x)))
+                                 :obsolete (lambda (x) (or (booleanp x) 
(stringp x)))
+                                 :body t)
     (lambda (extended obsolete body)
       (when (stringp extended)
         (compat-macs--assert
@@ -225,9 +225,9 @@ definition is generated.
 - :feature :: See `compat-guard'."
   (declare (debug (name form stringp [&rest keywordp sexp]))
            (doc-string 3) (indent 2))
-  (compat-macs--guard attrs `(:constant booleanp
-                         :local ,(lambda (x) (memq x '(nil t permanent)))
-                         :obsolete ,(lambda (x) (or (booleanp x) (stringp x))))
+  (compat-macs--guard attrs (list :constant #'booleanp
+                                  :local (lambda (x) (memq x '(nil t 
permanent)))
+                                  :obsolete (lambda (x) (or (booleanp x) 
(stringp x))))
     (lambda (constant local obsolete)
       (compat-macs--strict (not (boundp name)) "%s already defined" name)
       (compat-macs--assert (not (and constant local)) "Both :constant and 
:local")