diff options
| -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*, |