- :elide-to-string compiler flag

Author: swannodette

src/main/clojure/cljs/analyzer.cljc

@@ -497,6 +497,9 @@
 (defn lite-mode? []
   (get-in @env/*compiler* [:options :lite-mode]))
 
+(defn elide-to-string? []
+  (get-in @env/*compiler* [:options :elide-to-string]))
+
 #?(:clj
    (defmacro with-warning-handlers [handlers & body]
      `(binding [*cljs-warning-handlers* ~handlers]

src/main/clojure/cljs/closure.clj

@@ -211,7 +211,8 @@
     :watch :watch-error-fn :watch-fn :install-deps :process-shim :rename-prefix :rename-prefix-namespace
     :closure-variable-map-in :closure-property-map-in :closure-variable-map-out :closure-property-map-out
     :stable-names :ignore-js-module-exts :opts-cache :aot-cache :elide-strict :fingerprint :spec-skip-macros
-    :nodejs-rt :target-fn :deps-cmd :bundle-cmd :global-goog-object&array :node-modules-dirs :lite-mode})
+    :nodejs-rt :target-fn :deps-cmd :bundle-cmd :global-goog-object&array :node-modules-dirs :lite-mode
+    :elide-to-string})
 
 (def string->charset
   {"iso-8859-1" StandardCharsets/ISO_8859_1

src/main/clojure/cljs/core.cljc

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