(ns clojure.stacktrace)
(require 'clj-stacktrace.repl)

(defn print-cause-trace [& args]
  (if (ns-resolve 'clojure.test 'old-report)
    (apply clj-stacktrace.repl/pst args)
    (apply clj-stacktrace.repl/pst+ args)))

Generated by Phil Hagelberg using scpaste at Fri Jun 25 11:11:14 2010. PDT. (raw)