resolve returns improperly constructed Var

Author: swannodette

src/main/clojure/cljs/core.cljc

@@ -3191,4 +3191,4 @@
                             [(ana/resolve-var env sym) nil]))
              resolved (vary-meta (:name var) assoc ::ana/no-resolve true)]
     `(when (exists? ~resolved)
-       (cljs.core/Var. ~resolved '~resolved ~meta))))
+       (cljs.core/Var. (fn [] ~resolved) '~resolved ~meta))))

src/test/cljs/cljs/core_test.cljs

@@ -1349,6 +1349,10 @@
     (let [p (Partial. + [1])]
       (p 2))))
 
+(deftest test-resolve
+  (testing "Resolve should return valid var"
+    (is (= 1 ((resolve 'first) [1 2 3])))))
+
 (comment
   ;; ObjMap
   ;; (let [ks (map (partial str "foo") (range 500))