From 80abceb212b2acb420317232cb2c3d0ab69af13b Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Fri, 27 May 2022 13:26:19 -0500
Subject: asdpofiuasdpfoiasjdpfoiajsdf

---
 lisp/+setup.el | 21 +++++++++++----------
 1 file changed, 11 insertions(+), 10 deletions(-)

(limited to 'lisp/+setup.el')

diff --git a/lisp/+setup.el b/lisp/+setup.el
index 919e312..1f110d6 100644
--- a/lisp/+setup.el
+++ b/lisp/+setup.el
@@ -80,21 +80,22 @@ If PATH does not exist, abort the evaluation."
 
 ;;; Straight.el
 
-(with-eval-after-load 'straight
-  (defun setup--straight-handle-arg (arg var)
-    (cond
-     ((and (boundp var) (symbol-value var)) t)
-     ((keywordp arg) (set var t))
-     ((functionp arg) (set var nil) (funcall arg))
-     ((listp arg) (set var nil) (eval arg :lexical))))
+(defun setup--straight-handle-arg (arg var)
+  (cond
+   ((and (boundp var) (symbol-value var)) t)
+   ((keywordp arg) (set var t))
+   ((functionp arg) (set var nil) (funcall arg))
+   ((listp arg) (set var nil) arg)))
 
+(with-eval-after-load 'straight
   (setup-define :straight
     (lambda (recipe &rest predicates)
       (let* ((skp (make-symbol "straight-keyword-p"))
              (straight-use-p
-              (cl-every (lambda (f) (setup--straight-handle-arg f skp))
-                        predicates))
-             (form `(unless (and ,straight-use-p
+              (cl-mapcar
+                 (lambda (f) (setup--straight-handle-arg f skp))
+                 predicates))
+             (form `(unless (and ,@straight-use-p
                                  (condition-case e
                                      (straight-use-package ',recipe)
                                    (error
-- 
cgit 1.4.1-21-gabe81