diff --git a/deps.edn b/deps.edn index 77b4e8e..d71c940 100644 --- a/deps.edn +++ b/deps.edn @@ -1,14 +1,23 @@ {:paths ["src"] - :deps {org.clojure/clojure {:mvn/version "1.10.3"} - org.clojure/clojurescript {:mvn/version "1.11.4"} + :deps {org.clojure/clojure {:mvn/version "1.11.1"} + org.clojure/clojurescript {:mvn/version "1.11.60"} org.clojure/core.async {:mvn/version "1.5.648"}} :aliases {:cljs {:extra-deps {thheller/shadow-cljs {:mvn/version "2.17.2"} binaryage/devtools {:mvn/version "1.0.4"}} :extra-paths ["test"]} :test {:extra-deps {lambdaisland/kaocha {:mvn/version "1.63.998"} - io.github.cognitect-labs/test-runner {:git/tag "v0.5.0" - :git/sha "48c3c67"}} + io.github.cognitect-labs/test-runner {:git/tag "v0.5.1" + :git/sha "dfb30dd"}} :extra-paths ["test"]} + :jvm-test {:extra-deps {io.github.cognitect-labs/test-runner {:git/tag "v0.5.1" + :git/sha "dfb30dd"}} + :extra-paths ["test"] + :main-opts ["-m" "cognitect.test-runner"] + :exec-args {:nses [superv.async-test] + :dirs ["test"]} + :exec-fn cognitect.test-runner.api/test} + :cljs-test {:extra-paths ["test"] + :main-opts ["-m" "cljs.main" "-t" "node" "-m" "superv.node-runner"]} :build {:deps {io.github.seancorfield/build-clj {:git/tag "v0.6.7" :git/sha "22c2d09"} borkdude/gh-release-artifact {:git/url "https://github.com/borkdude/gh-release-artifact" diff --git a/src/superv/async.cljc b/src/superv/async.cljc index 366bc45..1bdbfd6 100644 --- a/src/superv/async.cljc +++ b/src/superv/async.cljc @@ -172,7 +172,7 @@ {:body exps :finally-clauses finally}))) finally (rest (first finally)) - e (if (:ns &env) `js/Error Exception)] + e (if (:ns &env) `js/Error `Exception)] `(go (try ~@body @@ -203,7 +203,7 @@ {:body exps :finally-clauses finally}))) finally (rest (first finally)) - e (if (:ns &env) `js/Error Exception)] + e (if (:ns &env) `js/Error `Exception)] `(let [c# (check-supervisor S) id# (-register-go ~S (quote ~exps))] (go @@ -655,7 +655,7 @@ Throws if any result is an exception or the context has been aborted." {:body exps :finally-clauses finally}))) finally (rest (first finally)) - e (if (:ns &env) `js/Error Exception)] + e (if (:ns &env) `js/Error `Exception)] `(let [c# (check-supervisor S) id# (-register-go ~S (quote ~body))] (go @@ -767,7 +767,7 @@ Throws if any result is an exception or the context has been aborted." (when-first [~bind ~gxs] ~(do-mod mod-pairs))))))) res-ch (gensym "res_ch__") - e (if (:ns &env) `js/Error Exception)] + e (if (:ns &env) `js/Error `Exception)] `(let [~res-ch (chan) iter# ~(emit-bind res-ch (to-groups seq-exprs))] (go (try (