Label stacktraces in output

This commit is contained in:
Peter Taoussanis 2013-01-03 23:13:55 +07:00
parent d13b870799
commit d8b35e14cc

View File

@ -273,7 +273,8 @@
:message (if has-throwable?# (or (first xs#) x1#) x1#)
:more (if has-throwable?#
(conj (vec (rest xs#))
(str "\n" (stacktrace/pst-str x1#)))
(str "\nStacktrace:\n"
(stacktrace/pst-str x1#)))
(vec xs#))})]
(juxt-fn# appender-args#)