diff options
| author | scgilardi <scgilardi@gmail.com> | 2008-08-19 05:58:51 +0000 |
|---|---|---|
| committer | scgilardi <scgilardi@gmail.com> | 2008-08-19 05:58:51 +0000 |
| commit | 86a5a6e632af045705a473d429934c8c1947fc53 (patch) | |
| tree | 9f107457562281abd4fab77084cc146dbbe18ff3 /src | |
| parent | 845e7aa18404011c48641bcad7d0628dcf1c20e6 (diff) | |
except.clj: use when for on-armed if
Diffstat (limited to 'src')
| -rw-r--r-- | src/clojure/contrib/except/except.clj | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/clojure/contrib/except/except.clj b/src/clojure/contrib/except/except.clj index a2fc8521..6d59e412 100644 --- a/src/clojure/contrib/except/except.clj +++ b/src/clojure/contrib/except/except.clj @@ -30,7 +30,7 @@ format-args are zero or more objects that correspond to the format specifiers in format." [pred & args] - (if pred + (when pred (let [class-present (instance? Class (first args)) args (if class-present args (cons Exception args)) [class fmt & fmt-args] args |