CLJS-2101: Undeclared var in do chain of defs

We need to force the compiler state analysis side effects which occur
when analyzing the chain of forms inside do form, prior to analyzing
the last form in the do.

Author: mfikes

src/main/clojure/cljs/analyzer.cljc

@@ -1666,7 +1666,7 @@
      :children (conj (vec (map :init bes)) expr)}))
 
 (defn analyze-do-statements* [env exprs]
-  (seq (map #(analyze (assoc env :context :statement) %) (butlast exprs))))
+  (seq (doall (map #(analyze (assoc env :context :statement) %) (butlast exprs)))))
 
 (defn analyze-do-statements [env exprs]
   (disallowing-recur (analyze-do-statements* env exprs)))

src/test/clojure/cljs/analyzer_tests.clj

@@ -721,6 +721,18 @@
     (let [def (get-in @test-cenv [::a/namespaces 'test.cljs-1992 :defs 'test-fn])]
       (is (:fn-var def)))))
 
+(deftest test-cljs-2101
+  (let [test-cenv (e/default-compiler-env)]
+    (e/with-compiler-env test-cenv
+      (a/analyze-form-seq
+        ['(ns test.cljs-2101)
+         `(do
+            ;; Splice in 32 forms in order to consume first chunk in chunked sequence
+            ~@(range 32)
+            (def ~'x32 1)
+            ;; The previous def must be analyzed for subsequent var special to succeed
+            (def ~'x33 (var ~'x32)))]))))
+
 (comment
   (binding [a/*cljs-ns* a/*cljs-ns*]
     (a/no-warn