for fn invokes to be replace we also need to update :info

Author: swannodette

src/main/cljs/cljs/analyzer/passes/lite.cljc

@@ -17,7 +17,10 @@
     cljs.core/vec    cljs.core/simple-vec})
 
 (defn update-var [{:keys [name] :as ast}]
-  (update ast :name ctor->simple-ctor))
+  (let [replacement (get ctor->simple-ctor name)]
+    (-> ast
+      (assoc :name replacement)
+      (assoc-in [:info :name] replacement))))
 
 (defn replace-var? [ast]
   (and (var? ast)

src/test/clojure/cljs/analyzer_pass_tests.clj

@@ -181,18 +181,20 @@
 (deftest test-lite-mode-pass
   (let [aenv (assoc (ana/empty-env) :context :expr)
         env  (env/default-compiler-env {:lite-mode true})]
-    (is (= 'cljs.core/simple-vec
-            (-> (env/with-compiler-env env
-                  (comp/with-core-cljs {}
-                    (fn []
-                      (analyze aenv 'cljs.core/vec))))
-              :name)))
-    (is (= 'cljs.core/simple-vector
-          (-> (env/with-compiler-env env
+    (let [ast (env/with-compiler-env env
                 (comp/with-core-cljs {}
                   (fn []
-                    (analyze aenv 'cljs.core/vector))))
-            :name)))))
+                    (analyze aenv 'cljs.core/vec))))]
+     (is (= 'cljs.core/simple-vec
+             (-> ast :name)
+             (-> ast :info :name))))
+    (let [ast (env/with-compiler-env env
+                (comp/with-core-cljs {}
+                  (fn []
+                    (analyze aenv 'cljs.core/vector))))]
+      (is (= 'cljs.core/simple-vector
+             (-> ast :name)
+             (-> ast :info :name))))))
 
 (comment
   (test/run-tests)