CLJS-3190: Double arity warning constructing directly-accessed record

Author: mfikes

Diff for: src/main/clojure/cljs/analyzer.cljc

@@ -3681,7 +3681,7 @@
                  (== 1 (count args))
                  (record-with-field? (:tag (first argexprs)) (symbol (name f))))
           (let [field-access-form (list* (symbol (str ".-" (name f))) args)]
-            (analyze env field-access-form))
+            (no-warn (analyze env field-access-form)))
           {:env      env :op :invoke :form form :fn fexpr :args argexprs
            :children [:fn :args]})))))
 

Diff for: src/test/clojure/cljs/analyzer_tests.clj

@@ -2110,3 +2110,14 @@
                                           a
                                           (recur b 1)))))))
         'any)))
+
+(deftest test-cljs-3190
+  (let [ws (atom [])]
+    (ana/with-warning-handlers [(collecting-warning-handler ws)]
+      (env/with-compiler-env @test-cenv
+        (analyze (ana/empty-env)
+          '(do
+             (defrecord Foo [a])
+             (:a (->Foo))))))
+    (is (= 1 (count @ws)))
+    (is (string/starts-with? (first @ws) "Wrong number of args (0) passed to cljs.user/->Foo"))))