move lite-mode? predicate into the analyzer

Author: swannodette

src/main/clojure/cljs/analyzer.cljc

@@ -492,6 +492,9 @@
 (def ^:dynamic *cljs-warning-handlers*
   [default-warning-handler])
 
+(defn lite-mode? []
+  (get-in @env/*compiler* [:options :lite-mode]))
+
 #?(:clj
    (defmacro with-warning-handlers [handlers & body]
      `(binding [*cljs-warning-handlers* ~handlers]

src/main/clojure/cljs/compiler.cljc

@@ -522,9 +522,6 @@
     (and (every? #(= (:op %) :const) keys)
          (= (count (into #{} keys)) (count keys)))))
 
-(defn lite-mode? []
-  (get-in @env/*compiler* [:options :lite-mode]))
-
 (defn obj-map-key [x]
   (if (keyword? x)
     (str \" "\\uFDD0" \'
@@ -570,7 +567,7 @@
 (defmethod emit* :map
   [{:keys [env form keys vals]}]
   (emit-wrap env
-    (if (lite-mode?)
+    (if (ana/lite-mode?)
       (let [form-keys (clojure.core/keys form)]
         (if (every? #(or (string? %) (keyword? %)) form-keys)
           (emit-obj-map (map obj-map-key form-keys) vals comma-sep distinct-keys?)
@@ -599,7 +596,7 @@
 (defmethod emit* :vector
   [{:keys [items env]}]
   (emit-wrap env
-    (if (lite-mode?)
+    (if (ana/lite-mode?)
       (emit-lite-vector items comma-sep)
       (emit-vector items comma-sep))))
 

src/main/clojure/cljs/core.cljc

@@ -1511,7 +1511,7 @@
     ;; Elide all toString methods in :lite-mode
     (remove
       (core/fn [[f]]
-        (core/and (comp/lite-mode?) (core/= 'toString f))))
+        (core/and (ana/lite-mode?) (core/= 'toString f))))
     (map
       (core/fn [[f & meths :as form]]
         (core/let [[f meths] (if (vector? (first meths))