use js-tag to determine tag in cljs.analyzer/analyze-dot

Author: swannodette

src/main/clojure/cljs/analyzer.cljc

@@ -2637,7 +2637,9 @@
                   :target targetexpr
                   :field field
                   :children children
-                  :tag tag})
+                  :tag (if (js-tag? tag)
+                         (or (js-tag (-> tag meta :prefix) :tag) tag)
+                         tag)})
       ::call   (let [argexprs (map #(analyze enve %) args)
                      children (into [targetexpr] argexprs)]
                  {:op :dot
@@ -2648,11 +2650,7 @@
                   :args argexprs
                   :children children
                   :tag (if (js-tag? tag)
-                         (let [pre (-> tag meta :prefix)
-                               [sym _] (find (get-in @env/*compiler*
-                                               (into [::externs] (butlast pre)))
-                                         (last pre))]
-                           (:ret-tag (meta sym) tag))
+                         (or (js-tag (-> tag meta :prefix) :ret-tag) tag)
                          tag)}))))
 
 (defmethod parse '.

src/test/clojure/cljs/analyzer_tests.clj

@@ -665,7 +665,6 @@
   (require '[cljs.compiler :as cc])
   (require '[cljs.closure :as closure])
 
-  ;; TODO: need to handle the method/fn case
   (let [test-cenv (atom {::a/externs (externs/externs-map)})]
     (binding [a/*cljs-ns* a/*cljs-ns*
               a/*cljs-warnings* (assoc a/*cljs-warnings* :infer-warning true)]
@@ -715,7 +714,7 @@
           (map (comp :externs second)
             (get @test-cenv ::a/namespaces))))))
 
-  ;; does NOT work, does not generate extern
+  ;; works, generates extern
   (let [test-cenv (atom {::a/externs (externs/externs-map
                                        (closure/load-externs
                                          {:externs ["src/test/externs/test.js"]}))})]