CLJS-1970: Cannot infer target type for list/vector expressions

tag deftype/record symbol as function

Author: dnolen

src/main/clojure/cljs/analyzer.cljc

@@ -2802,6 +2802,7 @@
            (fn [m]
              (let [m (assoc (or m {})
                        :name t
+                       :tag 'function
                        :type true
                        :num-fields (count fields)
                        :record (= :defrecord* op))]
@@ -2810,6 +2811,7 @@
                       {:protocols protocols}
                       (source-info tsym env)))))
     {:op op :env env :form form :t t :fields fields :pmasks pmasks
+     :tag 'function
      :protocols (disj protocols 'cljs.core/Object)
      :body (analyze (assoc env :locals locals) body)}))
 

src/test/clojure/cljs/analyzer_tests.clj

@@ -998,19 +998,14 @@
     (is (= 1 (count @ws)))
     (is (string/starts-with? (first @ws) "Cannot infer target type"))))
 
-(comment
-
-  (deftest test-cljs-1970-infer-with-cljs-literals
-    (let [ws  (atom [])
-          res (infer-test-helper
-                {:forms '[(ns cjls-1970.core)
-                          (set! *warn-on-infer* true)
-                          (defn foo [] (list))
-                          (defn bar [] (vector))]
-                 :externs ["src/test/externs/test.js"]
-                 :warnings ws
-                 :with-core? true})]
-      (println @ws)
-      (is (zero? (count @ws)))))
-
-  )
+(deftest test-cljs-1970-infer-with-cljs-literals
+  (let [ws  (atom [])
+        res (infer-test-helper
+              {:forms '[(ns cjls-1970.core)
+                        (set! *warn-on-infer* true)
+                        (defn foo [] (list))
+                        (defn bar [] (vector))]
+               :externs ["src/test/externs/test.js"]
+               :warnings ws
+               :with-core? true})]
+    (is (zero? (count @ws)))))