CLJS-1481: self-host: defprotocol regressed with arity error

Need to expicilty invoke cljs.core/->

Author: mfikes

src/main/clojure/cljs/core.cljc

@@ -1868,7 +1868,7 @@
                                        (throw
                                          (missing-protocol
                                            ~(core/str psym "." fname) ~(first sig))))))))))
-             psym (-> psym
+             psym (core/-> psym
                     (vary-meta update-in [:jsdoc] conj
                       "@interface")
                     (vary-meta assoc-in [:protocol-info :methods]

src/test/self/self_host/test.cljs

@@ -51,12 +51,17 @@
 
 (deftest test-analyze-str
   (async done
-    (let [l (latch 1 done)]
+    (let [l (latch 2 done)]
       (cljs/analyze-str st "(+ 1 1)" nil
         {:context :expr}
         (fn [{:keys [error value]}]
           (is (nil? error))
           (is (= :js (:op value)))
+          (inc! l)))
+      (cljs/analyze-str st "(defprotocol IFoo)" nil
+        {:context :expr}
+        (fn [{:keys [error value]}]
+          (is (nil? error))
           (inc! l))))))
 
 (deftest test-compile-str