CLJS-2068: MapEntry, RedNode and BlackNode are IComparable

Author: thomasmulvaney

src/main/cljs/cljs/core.cljs

@@ -9753,6 +9753,24 @@ reduces them without incurring seq initialization"
       (throw (js/Error. (str "Cannot compare " x " to " y)))))
 
   PersistentVector
+  (-compare [x y]
+    (if (vector? y)
+      (compare-indexed x y)
+      (throw (js/Error. (str "Cannot compare " x " to " y)))))
+
+  MapEntry
+  (-compare [x y]
+    (if (vector? y)
+      (compare-indexed x y)
+      (throw (js/Error. (str "Cannot compare " x " to " y)))))
+
+  BlackNode
+  (-compare [x y]
+    (if (vector? y)
+      (compare-indexed x y)
+      (throw (js/Error. (str "Cannot compare " x " to " y)))))
+
+  RedNode
   (-compare [x y]
     (if (vector? y)
       (compare-indexed x y)

src/test/cljs/cljs/map_entry_test.cljs

@@ -133,7 +133,11 @@
           :key (e 0 :not-found)
           :val (e 1 :not-found)
           :not-found (e 2 :not-found)
-          :not-found (e -1 :not-found))))))
+          :not-found (e -1 :not-found))))
+
+    (testing "IComparable"
+      (testing "-compare"
+        (is (zero? (-compare e [:key :val])))))))
 
 (deftest all-map-entry-tests
   (testing "BlackNode"