Support (try (catch :default)) in CLJS exception handling

clojure · Oct 15, 2014 · bd71ba7 · bd71ba7
1 parent 47ad737
commit bd71ba7
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 1 deletion.
diff --git a/src/main/clojure/cljs/core/async/impl/ioc_helpers.cljs b/src/main/clojure/cljs/core/async/impl/ioc_helpers.cljs
@@ -91,7 +91,8 @@
 
      (and exception
           catch-block
-          (instance? catch-exception exception))
+          (or (= :default catch-exception)
+              (instance? catch-exception exception)))
      (ioc/aset-all! state
                     STATE-IDX
                     catch-block

diff --git a/src/test/cljs/cljs/core/async/runner_tests.cljs b/src/test/cljs/cljs/core/async/runner_tests.cljs
@@ -163,6 +163,12 @@
             (assert false)
             (catch js/Error ex 42))))
 
+    (is= 42
+         (runner
+          (try
+            (assert false)
+            (catch :default ex 42))))
+
     (let [a (atom false)
           v (runner
              (try