diff options
| author | Stuart Sierra <mail@stuartsierra.com> | 2009-02-11 01:41:30 +0000 |
|---|---|---|
| committer | Stuart Sierra <mail@stuartsierra.com> | 2009-02-11 01:41:30 +0000 |
| commit | aeaaf08c691ded016bafa47286ce094e53fa624f (patch) | |
| tree | 19340d4420c55f7d31e58a8e75de61db869f41c3 | |
| parent | a812b031e595baeae00034b3f3b54f78a813a6a6 (diff) | |
stacktrace.clj: fix print-cause-trace to recursively print ALL causes.
Before, it only printed the first 2 exceptions.
Report/patch from Chas Emerick.
http://code.google.com/p/clojure-contrib/issues/detail?id=27
| -rw-r--r-- | src/clojure/contrib/stacktrace.clj | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/clojure/contrib/stacktrace.clj b/src/clojure/contrib/stacktrace.clj index b3d8d866..c412b119 100644 --- a/src/clojure/contrib/stacktrace.clj +++ b/src/clojure/contrib/stacktrace.clj @@ -63,7 +63,7 @@ (print-stack-trace tr n) (when-let [cause (.getCause tr)] (print "Caused by: " ) - (print-stack-trace cause n)))) + (recur cause n)))) (defn e "REPL utility. Prints a brief stack trace for the root cause of the |