diff options
author | David Powell <djpowell@djpowell.net> | 2010-04-17 11:25:39 +0100 |
---|---|---|
committer | Stuart Halloway <stu@thinkrelevance.com> | 2010-05-03 16:06:58 -0400 |
commit | ab6fc90d56bfb3b969ed84058e1b3a4b30faa400 (patch) | |
tree | 74649ed32f678a78b405ba65ad2afe3eec1891c0 | |
parent | 59b65669860a1f33825775494809e5d500c19c63 (diff) |
fixed stack consumpton in (pr & more)
Signed-off-by: Stuart Halloway <stu@thinkrelevance.com>
-rw-r--r-- | src/clj/clojure/core.clj | 4 |
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 |