aboutsummaryrefslogtreecommitdiff
path: root/src/clojure/contrib/condition/example.clj
diff options
context:
space:
mode:
Diffstat (limited to 'src/clojure/contrib/condition/example.clj')
-rw-r--r--src/clojure/contrib/condition/example.clj3
1 files changed, 3 insertions, 0 deletions
diff --git a/src/clojure/contrib/condition/example.clj b/src/clojure/contrib/condition/example.clj
index e437cf6e..04ef7d67 100644
--- a/src/clojure/contrib/condition/example.clj
+++ b/src/clojure/contrib/condition/example.clj
@@ -34,6 +34,8 @@
(handler-case :source
(handler-case :source
+ nil
+ nil
(println (func 8 2))
(println (func -6 17))
;; no handler for ::Args
@@ -42,4 +44,5 @@
(println (func 3 4))
(println (func -5 10))
(handle ::Args
+ (print-stack-trace *condition*)
(printf "Bad argument: %s\n" *condition*))))