Skip to content

Commit 3636a80

Browse files
committed
CLJS-1400: doseq does not behave as expected
add test. fix `with-out-str` for bootstrapped
1 parent c96bf68 commit 3636a80

File tree

2 files changed

+8
-3
lines changed

2 files changed

+8
-3
lines changed

src/main/clojure/cljs/core.cljc

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -2560,7 +2560,7 @@
25602560
on a fresh StringBuffer. Returns the string created by any nested
25612561
printing calls."
25622562
[& body]
2563-
`(let [sb# (goog.string.StringBuffer.)]
2563+
`(let [sb# (js/goog.string.StringBuffer.)]
25642564
(binding [cljs.core/*print-newline* true
25652565
cljs.core/*print-fn* (fn [x#] (.append sb# x#))]
25662566
~@body)

src/test/self/self_host/test.cljs

Lines changed: 7 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -93,7 +93,7 @@
9393

9494
(deftest test-eval-str
9595
(async done
96-
(let [l (latch 6 done)]
96+
(let [l (latch 7 done)]
9797
(cljs/eval-str st "(+ 1 1)" nil
9898
{:eval node-eval}
9999
(fn [{:keys [error value]}]
@@ -146,7 +146,12 @@
146146
:def-emits-var true}
147147
(fn [{:keys [error value]}]
148148
(is (nil? error))
149-
(is (== 2 js/cljs.user.foo))
149+
(inc! l)))
150+
(cljs/eval-str st "(with-out-str (doseq [x [1 2]] (println x)))" nil
151+
{:eval node-eval
152+
:context :expr}
153+
(fn [{:keys [error value]}]
154+
(is (= "1\n2\n" value))
150155
(inc! l))))))
151156

152157
#_(deftest test-eval-str-with-require

0 commit comments

Comments
 (0)