diff options
| author | scgilardi <scgilardi@gmail.com> | 2008-11-28 17:17:25 +0000 |
|---|---|---|
| committer | scgilardi <scgilardi@gmail.com> | 2008-11-28 17:17:25 +0000 |
| commit | 920694eec3fafdb4f1c2df45dcb8911f1585b1b6 (patch) | |
| tree | c332920ab28f632d74b21d2a962c128021a264bc /src/clojure/contrib/except.clj | |
| parent | 293ec4a0983a0ead92790db6cefbfd2fe4cebb4a (diff) | |
except.clj: fix our-prefix in throwable for naming change from AOT compilation
Diffstat (limited to 'src/clojure/contrib/except.clj')
| -rw-r--r-- | src/clojure/contrib/except.clj | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/clojure/contrib/except.clj b/src/clojure/contrib/except.clj index 44f8c4d8..ecf77318 100644 --- a/src/clojure/contrib/except.clj +++ b/src/clojure/contrib/except.clj @@ -69,7 +69,7 @@ (cons Exception args)) ctor-args (into-array (if fmt [(apply format fmt fmt-args)] [])) throwable (Reflector/invokeConstructor class ctor-args) - our-prefix "clojure.contrib.except.throwable" + our-prefix "clojure.contrib.except$throwable" not-us? #(not (.startsWith (.getClassName %) our-prefix)) raw-trace (.getStackTrace throwable) edited-trace (into-array StackTraceElement |