lift passes into default-passes var, expose in cljs.analyzer.api,

add cljs.analyzer.api/with-passes helper

Author: swannodette

src/main/clojure/cljs/analyzer.cljc

@@ -4220,11 +4220,14 @@
          (cond-> {:op :const :val form :env env :form form}
            tag (assoc :tag tag))))))
 
+(def default-passes
+  #?(:clj  [infer-type check-invoke-arg-types ns-side-effects]
+     :cljs [infer-type check-invoke-arg-types]))
+
 (defn analyze* [env form name opts]
   (let [passes *passes*
         passes (if (nil? passes)
-                 #?(:clj  [infer-type check-invoke-arg-types ns-side-effects]
-                    :cljs [infer-type check-invoke-arg-types])
+                 default-passes
                  passes)
         form   (if (instance? LazySeq form)
                  (if (seq form) form ())

src/main/clojure/cljs/analyzer/api.cljc

@@ -90,6 +90,12 @@
   ([state]
    (get @state :js-dependency-index)))
 
+(def default-passes ana/default-passes)
+
+(defn with-passes [passes & body]
+  `(binding [ana/*passes* ~passes]
+     ~@body))
+
 #?(:clj
    (defn analyze
      "Given an environment, a map containing {:locals (mapping of names to bindings), :context