diff options
| -rw-r--r-- | src/clj/clojure/main.clj | 2 | ||||
| -rw-r--r-- | src/clj/clojure/repl.clj | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/src/clj/clojure/main.clj b/src/clj/clojure/main.clj index 58e073f6..f7810c17 100644 --- a/src/clj/clojure/main.clj +++ b/src/clj/clojure/main.clj @@ -105,7 +105,7 @@ (let [ex (repl-exception e) el (aget (.getStackTrace ex) 0)] (.println *err* - (str ex + (str (-> ex class .getSimpleName) (when-not (instance? clojure.lang.Compiler$CompilerException ex) (str " " (stack-element-str el))))))) diff --git a/src/clj/clojure/repl.clj b/src/clj/clojure/repl.clj index f5bb3806..2f50223d 100644 --- a/src/clj/clojure/repl.clj +++ b/src/clj/clojure/repl.clj @@ -135,7 +135,7 @@ str-or-pattern." (when-let [e *e] (pst (root-cause e) depth))) ([^Throwable e depth] - (.println *err* (.getMessage e)) + (.println *err* (str (-> e class .getSimpleName) " " (.getMessage e))) (let [st (.getStackTrace e) cause (.getCause e)] (doseq [el (take depth |