diff options
author | scgilardi <scgilardi@gmail.com> | 2008-07-07 11:52:40 +0000 |
---|---|---|
committer | scgilardi <scgilardi@gmail.com> | 2008-07-07 11:52:40 +0000 |
commit | 6abb0448305a4373ff6921ef6c772d218219f715 (patch) | |
tree | b8cdd835c2831076c074f39e0edcf6ba4280adef | |
parent | 0a7a94680e9e71e7311b5666e1db221aad0b525d (diff) |
untabify except.clj
-rw-r--r-- | except.clj | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -24,15 +24,15 @@ corresponding to format specifiers in format." [pred & args] (if pred - (let [[arg0 arg1 & more] args + (let [[arg0 arg1 & more] args [class fmt fmt-args] (if (instance? Class arg0) [arg0 arg1 more] [Exception arg0 (cons arg1 more)]) - ctor (.getConstructor (identity class) (into-array [String])) - message (apply format fmt fmt-args) + ctor (.getConstructor (identity class) (into-array [String])) + message (apply format fmt fmt-args) exception (.newInstance ctor (into-array [message])) raw-trace (.getStackTrace exception) boring? #(not= (.getMethodName %) "doInvoke") trace (drop 2 (drop-while boring? raw-trace))] (.setStackTrace exception (into-array trace)) - (throw exception)))) + (throw exception)))) |