aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorscgilardi <scgilardi@gmail.com>2008-07-07 11:52:40 +0000
committerscgilardi <scgilardi@gmail.com>2008-07-07 11:52:40 +0000
commit6abb0448305a4373ff6921ef6c772d218219f715 (patch)
treeb8cdd835c2831076c074f39e0edcf6ba4280adef
parent0a7a94680e9e71e7311b5666e1db221aad0b525d (diff)
untabify except.clj
-rw-r--r--except.clj8
1 files changed, 4 insertions, 4 deletions
diff --git a/except.clj b/except.clj
index 02665306..1fd9c232 100644
--- a/except.clj
+++ b/except.clj
@@ -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))))