* copy over min/max logic from Clojure

clojure · Jan 25, 2025 · fee443c · fee443c
1 parent b7481f7
commit fee443c
Showing 1 changed file with 10 additions and 2 deletions.
diff --git a/src/main/cljs/cljs/core.cljs b/src/main/cljs/cljs/core.cljs
@@ -2771,14 +2771,22 @@ reduces them without incurring seq initialization"
 (defn ^number max
   "Returns the greatest of the nums."
   ([x] x)
-  ([x y] (cljs.core/max x y))
+  ([x y]
+   (cond
+     (.isNaN js/Number x) x
+     (.isNaN js/Number y) y
+     :else (cljs.core/max x y)))
   ([x y & more]
    (reduce max (cljs.core/max x y) more)))
 
 (defn ^number min
   "Returns the least of the nums."
   ([x] x)
-  ([x y] (cljs.core/min x y))
+  ([x y]
+   (cond
+     (.isNaN js/Number x) x
+     (.isNaN js/Number y) y
+     :else (cljs.core/min x y)))
   ([x y & more]
    (reduce min (cljs.core/min x y) more)))