diff options
| author | Rich Hickey <richhickey@gmail.com> | 2010-09-09 16:35:36 -0400 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2010-09-09 16:35:36 -0400 |
| commit | 1c0468dbe5228bb8c228e1370133bbe1d018e058 (patch) | |
| tree | 38ba1247c5866606a517dca47c70a8917bcad196 | |
| parent | cb62bc2f2402b9872a13ba1753ab2d22254a54a8 (diff) | |
add exception class simple name to pst output
| -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 |