cond assert

frenchy64 · Aug 23, 2024 · 9edac53 · 9edac53
1 parent 928d6a0
commit 9edac53
Showing 1 changed file with 3 additions and 1 deletion.
diff --git 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