CLJS-3352: Self-host negative zero emitted as positive zero

Author: mfikes

src/main/clojure/cljs/compiler.cljc

@@ -335,6 +335,9 @@
            (not (js/isFinite x))
            (emits (if (pos? x) "Infinity" "-Infinity"))
 
+           (and (zero? x) (neg? (/ x)))
+           (emits "(-0)")
+
            :else (emits "(" x ")"))))
 
 #?(:clj

src/test/cljs/cljs/primitives_test.cljs

@@ -953,6 +953,10 @@
     (is (= 1 (gobject/get #js {:a 1} "a")))
     (is (= 1 (.-a #js {:a 1})))))
 
+(deftest test-3352
+  (is (== ##-Inf (/ -0.0)))
+  (is (== ##Inf (/ -0))))
+
 (deftest test-char?
   (is (char? "0"))
   (is (char? (String/fromCharCode 13)))