deps.edn, merge upstream PR #4

Author: damienstanton

.gitignore

@@ -1,13 +1,3 @@
-/target
-/classes
-/checkouts
-pom.xml
-pom.xml.asc
-*.jar
-*.class
-*.iml
-/.lein-*
-/.nrepl-port
-.hgignore
-.hg/
-.idea
+.clj-kondo/
+.cpcache/
+.lsp/

deps.edn

@@ -0,0 +1,6 @@
+{:deps {org.clojure/clojure {:mvn/version "1.11.1"}}
+ :aliases {:test {:extra-paths ["test"]
+                  :extra-deps {io.github.cognitect-labs/test-runner
+                               {:git/tag "v0.5.1" :git/sha "dfb30dd"}}
+                  :main-opts ["-m" "cognitect.test-runner"]
+                  :exec-fn cognitect.test-runner.api/test}}}

project.clj

@@ -53,21 +53,23 @@
   c must be a keyword."
   [condition & [value & {:as handlers}]]
   (assert (and (keyword? condition) (not (#{:trace} condition))))
-  (let [get-h (fn [m k] (if (contains? m k)
-                          (let [h (m k)]
-                            (case h
-                              nil ::nil
-                              false ::false
-                              h))))
+  (let [get-h #(when (contains? % %2)
+                 (let [x (% %2)]
+                   (case x
+                     nil   ::nil
+                     false ::false
+                     x)))
         x (or (get-h *-special-condition-handlers-* condition)
               (get-h handlers :normally)
               (throw (ex-info (str "Unhandled condition " condition)
                               {::condition condition
                                :value      value})))]
-    (cond (fn? x) ((if (seq handlers)
-                     (apply manage x (apply concat handlers))
-                     x)
-                    value)
-          (= ::nil x) nil
-          (= ::false x) false
-          :else x)))
+    (case x
+      ::nil nil
+      ::false false
+      (if (fn? x)
+        ((if (seq handlers)
+           (apply manage x (apply concat handlers))
+           x)
+         value)
+        x))))