summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Powell <djpowell@djpowell.net>2010-04-17 11:25:39 +0100
committerStuart Halloway <stu@thinkrelevance.com>2010-05-03 16:06:58 -0400
commitab6fc90d56bfb3b969ed84058e1b3a4b30faa400 (patch)
tree74649ed32f678a78b405ba65ad2afe3eec1891c0
parent59b65669860a1f33825775494809e5d500c19c63 (diff)
fixed stack consumpton in (pr & more)
Signed-off-by: Stuart Halloway <stu@thinkrelevance.com>
-rw-r--r--src/clj/clojure/core.clj4
1 files changed, 3 insertions, 1 deletions
diff --git a/src/clj/clojure/core.clj b/src/clj/clojure/core.clj
index 2ee14a07..64f4097a 100644
--- a/src/clj/clojure/core.clj
+++ b/src/clj/clojure/core.clj
@@ -2724,7 +2724,9 @@
([x & more]
(pr x)
(. *out* (append \space))
- (apply pr more)))
+ (if-let [nmore (next more)]
+ (recur (first more) nmore)
+ (apply pr more))))
(defn newline
"Writes a newline to the output stream that is the current value of