diff options
| author | David Powell <djpowell@djpowell.net> | 2010-04-17 12:17:06 +0100 |
|---|---|---|
| committer | Stuart Halloway <stu@thinkrelevance.com> | 2010-10-14 15:25:01 -0400 |
| commit | 50cf43796cc415beb81e25cec26d56834f23eb00 (patch) | |
| tree | 009531caed61d03fb1bd3016b891415aabeca96e | |
| parent | a2ef7bf9deeced8c5e501720ec21ff131111bded (diff) | |
fix clojure.main to not assume that *err* is a PrintWriter
Signed-off-by: Stuart Halloway <stu@thinkrelevance.com>
| -rw-r--r-- | src/clj/clojure/main.clj | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/clj/clojure/main.clj b/src/clj/clojure/main.clj index d52123fe..f16096ec 100644 --- a/src/clj/clojure/main.clj +++ b/src/clj/clojure/main.clj @@ -104,11 +104,11 @@ [e] (let [ex (repl-exception e) el (aget (.getStackTrace ex) 0)] - (.println *err* - (str (-> ex class .getSimpleName) - " " (.getMessage ex) " " - (when-not (instance? clojure.lang.Compiler$CompilerException ex) - (str " " (stack-element-str el))))))) + (binding [*out* *err*] + (println (str (-> ex class .getSimpleName) + " " (.getMessage ex) " " + (when-not (instance? clojure.lang.Compiler$CompilerException ex) + (str " " (stack-element-str el)))))))) (defn repl "Generic, reusable, read-eval-print loop. By default, reads from *in*, |