CLJS-689: js/-Infinity munges to _Infinity

Special case -Infinity in :var emit

Add compiler test

Author: swannodette

src/clj/cljs/compiler.clj

@@ -251,7 +251,7 @@
 (defmethod emit* :no-op [m])
 
 (defmethod emit* :var
-  [{:keys [info env] :as arg}]
+  [{:keys [info env form] :as arg}]
   (let [var-name (:name info)
         info (if (= (namespace var-name) "js")
                (name var-name)
@@ -264,7 +264,10 @@
       ; (prevents duplicate fn-param-names)
       (emits (munge arg))
       (when-not (= :statement (:context env))
-        (emit-wrap env (emits (munge info)))))))
+        (emit-wrap env
+          (emits
+            (cond-> info
+              (not= form 'js/-Infinity) munge)))))))
 
 (defmethod emit* :var-special
   [{:keys [env var sym meta] :as arg}]

test/clj/cljs/compiler_tests.clj

@@ -47,11 +47,8 @@
              [:children 0 :children 0 :name]))
          'cljs$user$console)))
 
-(comment
-  (c/munge
-    (get-in
-      (a/analyze ns-env
-        '(defn foo []
-           (fn bar [])))
-      [:init :children 0 :children 0 :name]))
-  )
+(deftest test-js-negative-infinity
+  (= (with-out-str
+       (c/emit
+         (a/analyze (assoc ns-env :context :expr) 'js/-Infinity)))
+     "-Infinity"))