From 7bca96922a1dd9b7c68b5fe301cfb71e8d3dbded Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Thu, 22 Aug 2024 20:45:55 -0700
Subject: Fix bug in flatbind macroexpand

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

(limited to 'flatbind.lisp')

diff --git a/flatbind.lisp b/flatbind.lisp
index 9a76ff3..a741f76 100644
--- a/flatbind.lisp
+++ b/flatbind.lisp
@@ -67,7 +67,7 @@
              (setf expanded 
                    (ecase tag
                      (:simple
-                      (cond ((null expanded) form)
+                      (cond ((null expanded) `(progn ,form))
                             ((eq 'cl:progn (first expanded))
                              `(progn ,form ,@(rest expanded)))
                             (t
-- 
cgit v1.2.3