CLJS-2139: Undeclared var regression in fn bodies

With CLJS-2066, a change was made to skip analyzing named fn method
bodies on the first analysis pass, deferring this analyis to the
second, richer pass dedicated to optmizing self calls. Since the second
pass has all warnings suppressed, this introduces a subtle regression
in that no warnings would be emitted for issues found in named function
bodies.

This fixes the issue by turning off the blanket no-warn for the second
pass. Since warnings can only be emitted when analyzing method bodies
(the analysis of parameters doesn't lead to warnings), this is
sufficient to solve the problem.

Author: mfikes

src/main/clojure/cljs/analyzer.cljc

@@ -1570,7 +1570,7 @@
   (doall (map #(analyze-fn-method menv locals % type true) meths)))
 
 (defn analyze-fn-methods-pass2 [menv locals type meths]
-  (no-warn (analyze-fn-methods-pass2* menv locals type meths)))
+  (analyze-fn-methods-pass2* menv locals type meths))
 
 (defmethod parse 'fn*
   [op env [_ & args :as form] name _]

src/test/clojure/cljs/analyzer_tests.clj

@@ -733,6 +733,15 @@
             ;; The previous def must be analyzed for subsequent var special to succeed
             (def ~'x33 (var ~'x32)))]))))
 
+(deftest test-cljs-2139
+  (let [ws (atom [])]
+    (try
+      (a/with-warning-handlers [(collecting-warning-handler ws)]
+        (a/analyze (a/empty-env)
+          '(defn foo [] x)))
+      (catch Exception _))
+    (is (= ["Use of undeclared Var cljs.user/x"] @ws))))
+
 (comment
   (binding [a/*cljs-ns* a/*cljs-ns*]
     (a/no-warn