CLJS-1584: Self-host: core/str error with condp

mfikes · swannodette · commit 2023353d6355 · 2016-02-23T09:13:18.000-05:00
The condp macro uses core/str in
a syntax-quote context, while
every other place it appears that
cljs.core/str is used in that context.
diff --git a/src/main/clojure/cljs/core.cljc b/src/main/clojure/cljs/core.cljc
@@ -2056,7 +2056,7 @@
                                (split-at (if (= :>> (second args)) 3 2) args)
                                n (count clause)]
                       (core/cond
-                        (= 0 n) `(throw (js/Error. (core/str "No matching clause: " ~expr)))
+                        (= 0 n) `(throw (js/Error. (cljs.core/str "No matching clause: " ~expr)))
                         (= 1 n) a
                         (= 2 n) `(if (~pred ~a ~expr)
                                    ~b
diff --git a/src/test/self/self_host/test.cljs b/src/test/self/self_host/test.cljs
@@ -455,6 +455,16 @@
       (is (nil? error))
       (is (= "90°" value)))))
 
+(deftest test-CLJS-1584
+  (cljs/eval-str st
+    "(condp = 1 1 2)"
+    nil
+    {:eval    node-eval
+     :context :expr}
+    (fn [{:keys [error value]}]
+      (is (nil? error))
+      (is (= 2 value)))))
+
 #_(deftest test-eval-str-with-require
   (async done
     (let [l (latch 3 done)]
