two more micro-opts

Author: dnolen

src/main/clojure/cljs/analyzer.cljc

@@ -3296,13 +3296,18 @@
   "Mark a form as being analyzed. Assumes x satisfies IMeta. Useful to suppress
   warnings that will have been caught by a first compiler pass."
   [x]
-  (vary-meta x assoc ::analyzed true))
+  (cond
+    (map? x) (assoc x ::analyzed true)
+    :else (vary-meta x assoc ::analyzed true)))
 
 (defn analyzed?
   "Returns boolean if the form has already been marked as analyzed."
   #?(:cljs {:tag boolean})
   [x]
-  (boolean (::analyzed (meta x))))
+  (boolean
+    (cond
+      (map? x) (::analyzed x)
+      :else (::analyzed (meta x)))))
 
 (defn- all-values?
   #?(:cljs {:tag boolean})

src/main/clojure/cljs/compiler.cljc

@@ -65,7 +65,7 @@
       ns
       (subs ns 0 idx))))
 
-(defn find-ns-starts-with [needle]
+(defn ^:dynamic find-ns-starts-with [needle]
   (reduce-kv
     (fn [xs ns _]
       (when (= needle (get-first-ns-segment ns))
@@ -1473,7 +1473,8 @@
                                          (atom
                                            {:source-map (sorted-map)
                                             :gen-col 0
-                                            :gen-line 0}))]
+                                            :gen-line 0}))
+                 find-ns-starts-with   (memoize find-ns-starts-with)]
          (emitln (compiled-by-string opts))
          (with-open [rdr (io/reader src)]
            (let [env (ana/empty-env)]