diff options
| author | scgilardi <scgilardi@gmail.com> | 2008-11-28 15:04:47 +0000 |
|---|---|---|
| committer | scgilardi <scgilardi@gmail.com> | 2008-11-28 15:04:47 +0000 |
| commit | 293ec4a0983a0ead92790db6cefbfd2fe4cebb4a (patch) | |
| tree | 42667cc41d597eb6576ccd636c869b75e0110dff | |
| parent | 810032a81e0d9e393c6eca720a32d68c0afee5dd (diff) | |
except.clj: guard against a ClassCastException if throwable is called directly
| -rw-r--r-- | src/clojure/contrib/except.clj | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/clojure/contrib/except.clj b/src/clojure/contrib/except.clj index 81cfee62..44f8c4d8 100644 --- a/src/clojure/contrib/except.clj +++ b/src/clojure/contrib/except.clj @@ -72,6 +72,7 @@ our-prefix "clojure.contrib.except.throwable" not-us? #(not (.startsWith (.getClassName %) our-prefix)) raw-trace (.getStackTrace throwable) - edited-trace (into-array (drop 3 (drop-while not-us? raw-trace)))] + edited-trace (into-array StackTraceElement + (drop 3 (drop-while not-us? raw-trace)))] (.setStackTrace throwable edited-trace) throwable)) |