[elpa] externals/taxy ea3b724 1/5: Change: (taxy-make-take-function) Use pre-map-2.1 pcase form

[ELPA Syncer]

branch: externals/taxy
commit ea3b7240ea350ea8675dfd5280294b01326143c1
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>

    Change: (taxy-make-take-function) Use pre-map-2.1 pcase form
---
 taxy.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/taxy.el b/taxy.el
index 972c4e4..bc675a7 100644
--- a/taxy.el
+++ b/taxy.el
@@ -321,7 +321,8 @@ defined with a definer defined by 
`taxy-define-key-definer')."
                 (quote-fn
                  (fn) (pcase fn
                         ((pred symbolp) (expand-form fn))
-                        (`(,(and (or 'and 'or 'not) boolean) . ,(and args (map 
:name :keys)))
+                        (`(,(and (or 'and 'or 'not) boolean)
+                           . ,(and args (map (:name name) (:keys keys))))
                          ;; Well, that pcase expression isn't confusing at 
all...  ;)
                          ;;  (cl-assert name t "Boolean key functions require 
a NAME")
                          ;;  (cl-assert keys t "Boolean key functions require 
KEYS")