diff options
author | Chouser <chouser@n01se.net> | 2008-11-16 06:05:57 +0000 |
---|---|---|
committer | Chouser <chouser@n01se.net> | 2008-11-16 06:05:57 +0000 |
commit | b73be8505e49ba987e33ce98a1cba9549512265e (patch) | |
tree | c6085225c6627fa3aa0c9b20ed4418064d3df4b8 /clojurescript/repl/repl.cljs | |
parent | 535ca2cae260c726ccdb6cbf6b3d1ce6ace16483 (diff) |
Update ClojureScript for post-AOT
Diffstat (limited to 'clojurescript/repl/repl.cljs')
-rw-r--r-- | clojurescript/repl/repl.cljs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/clojurescript/repl/repl.cljs b/clojurescript/repl/repl.cljs index 12ac5707..acf0178f 100644 --- a/clojurescript/repl/repl.cljs +++ b/clojurescript/repl/repl.cljs @@ -8,7 +8,7 @@ (if (keyword? tag) (let [elem (.createElement document (name tag))] (when (map? attrs) - (doseq [k v] attrs + (doseq [[k v] attrs] (when v (.setAttribute elem (name k) v)))) [(append-dom elem (if (map? attrs) body (cons attrs body)))]) (mapcat dom o))) @@ -16,7 +16,7 @@ [(.createTextNode document (str o))]))) (defn append-dom [parent v] - (doseq i (dom v) + (doseq [i (dom v)] (.appendChild parent i)) parent) @@ -26,7 +26,7 @@ (defn repl-print [text] (let [log (:log elems)] - (doseq line (.split text #"\n") + (doseq [line (.split text #"\n")] (append-dom log [:div {:class (str "cg " (when *print-class* |