aboutsummaryrefslogtreecommitdiff
path: root/src/clojure
diff options
context:
space:
mode:
Diffstat (limited to 'src/clojure')
-rw-r--r--src/clojure/contrib/except/except.clj2
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