contrib.debug/instrument* catches transfer exceptions

hyperfiddle · May 10, 2024 · 831d1e6 · 831d1e6
1 parent 944984c
commit 831d1e6
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/src/contrib/debug.cljc b/src/contrib/debug.cljc
@@ -49,11 +49,13 @@
       (reify
         IFn (#?(:clj invoke :cljs -invoke) [_] (prn nm id :cancelled) (it))
         IDeref (#?(:clj deref :cljs -deref) [_]
-                 (let [v @it]
+                 (let [v (try @it (catch #?(:clj Throwable :cljs :default) e [::ex e]))]
                    (prn nm id :transferred
                      (if (instance? Failure v)
                        (let [e (.-error v)]
                          [(type e) (ex-message e)])
                        v))
-                   v))))))
+                   (if (and (vector? v) (= ::ex (first v)))
+                     (throw (second v))
+                     v)))))))
 (defmacro instrument [nm & body] `(new (instrument* ~nm (hyperfiddle.electric/fn [] ~@body))))