From 540e3c12f23a5c57a50f87d8516818ee8275c625 Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Sun, 9 Jul 2023 14:32:21 -0700
Subject: yup

---
 hyperquirks.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'hyperquirks.lisp')

diff --git a/hyperquirks.lisp b/hyperquirks.lisp
index 22537f2..981d35c 100644
--- a/hyperquirks.lisp
+++ b/hyperquirks.lisp
@@ -229,7 +229,7 @@ E.g.
 
 (defmacro ?>> (initform &rest pipe-forms)
   `(>> () ,initform ,@(loop :for form :in pipe-forms
-                            :collect :?
+                            :collect :? :collect 'cl:identity
                             :collect form)))
 
 (defmacro binding-cond (&body clauses)
-- 
cgit v1.2.3