CLJS-1594: NaN and both infinities cannot be elements of a set

Check if a number is Infinity, -Infinity, or NaN with isFinite then use matching hash values from Clojure for the values

Author: spinningtopsofdoom

src/main/cljs/cljs/core.cljs

@@ -885,7 +885,14 @@
     (-hash ^not-native o)
 
     (number? o)
-    (js-mod (Math/floor o) 2147483647)
+    (if (js/isFinite o)
+      (js-mod (Math/floor o) 2147483647)
+      (case o
+        Infinity
+        2146435072
+        -Infinity
+        -1048576
+        2146959360))
 
     (true? o) 1
 

src/test/cljs/cljs/core_test.cljs

@@ -3125,6 +3125,12 @@
              (-lookup [o k not-found] :3-arity))
            [:foo]))))
 
+(deftest test-cljs-1594
+  (is  (not (js/isNaN (hash Infinity))))
+  (is  (not (js/isNaN (hash -Infinity))))
+  (is  (not (js/isNaN (hash NaN))))
+  (is  (=  (hash-set Infinity -Infinity 0 1 2 3 4 5 6 7 8)
+          (set  (keys  (zipmap  [Infinity -Infinity 0 1 2 3 4 5 6 7 8]  (repeat nil)))))))
 
 (comment
   ;; ObjMap