same

frenchy64 · Aug 23, 2024 · 818bfdc · 818bfdc
1 parent 9edac53
commit 818bfdc
Showing 1 changed file with 11 additions and 11 deletions.
diff --git a/src/com/ambrosebs/map.clj b/src/com/ambrosebs/map.clj
@@ -28,17 +28,17 @@
 
 ;; does not test keywords
 (defmacro cond [& [c1 c2 :as clauses]]
-  (when clauses
-    (when-not (next clauses)
-      (throw (IllegalArgumentException.
-               "cond requires an even number of forms")))
-    (if (keyword? c1)
-      c2
-      (list 'if c1
-            c2
-            (let [nnclauses (next (next clauses))]
-              (assert nnclauses "Final clause must be keyword test")
-              (cons `cond nnclauses))))))
+  (assert clauses "Final clause must be keyword test")
+  (when-not (next clauses)
+    (throw (IllegalArgumentException.
+             "cond requires an even number of forms")))
+  (if (keyword? c1)
+    c2
+    (list 'if c1
+          c2
+          (let [nnclauses (next (next clauses))]
+            (assert nnclauses "Final clause must be keyword test")
+            (cons `cond nnclauses)))))
 
 
 (defonce ^:private NOT-FOUND