Use :once true in fns used in wrap-bindings

This is what `clojure.core/future` does.
funcool · Nov 18, 2024 · 05d73b4 · 05d73b4
1 parent c099142
commit 05d73b4
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/promesa/exec/csp.cljc b/src/promesa/exec/csp.cljc
@@ -67,7 +67,7 @@
   promise instance, has the same semantics as `go` macro."
   [& body]
   `(let [c# (chan :buf 1)
-         f# (px/wrap-bindings (fn [] ~@body))]
+         f# (px/wrap-bindings (^{:once true} fn* [] ~@body))]
      (->> (p/thread-call *executor* f#)
           (p/fnly (fn [v# e#]
                     (if e#
@@ -80,7 +80,7 @@
   a promise instance."
   [& body]
   `(let [c# (chan :buf 1)
-         f# (px/wrap-bindings (fn [] ~@body))]
+         f# (px/wrap-bindings (^{:once true} fn* [] ~@body))]
      (->> (p/thread-call :thread f#)
           (p/fnly (fn [v# e#]
                     (if e#