From 9edac53af9895dd70f92d1e319a4c0edd93ec8d8 Mon Sep 17 00:00:00 2001
From: Ambrose Bonnaire-Sergeant <ambrose@ambrosebs.com>
Date: Fri, 23 Aug 2024 16:57:32 -0500
Subject: [PATCH] cond assert

---
 src/com/ambrosebs/map.clj | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/com/ambrosebs/map.clj b/src/com/ambrosebs/map.clj
index 0ba4537..e6b7aeb 100644
--- a/src/com/ambrosebs/map.clj
+++ b/src/com/ambrosebs/map.clj
@@ -36,7 +36,9 @@
       c2
       (list 'if c1
             c2
-            (cons `cond (next (next clauses)))))))
+            (let [nnclauses (next (next clauses))]
+              (assert nnclauses "Final clause must be keyword test")
+              (cons `cond nnclauses))))))
 
 
 (defonce ^:private NOT-FOUND