ASYNC-234 alts completion callback should be ^:once fn to release alt state on completion

puredanger · puredanger · commit 8db07ff917b3 · 2025-04-07T20:02:55.000-05:00
diff --git a/src/main/clojure/clojure/core/async.clj b/src/main/clojure/clojure/core/async.clj
@@ -338,7 +338,7 @@ return nil for unexpected contexts."
   namespace docs)."
   [ports & opts]
   (let [p (promise)
-        ret (do-alts (on-caller #(deliver p %)) ports (apply hash-map opts))]
+        ret (do-alts (on-caller (^:once fn* [v] (deliver p v))) ports (apply hash-map opts))]
     (if ret
       @ret
       (deref p))))
@@ -448,7 +448,7 @@ return nil for unexpected contexts."
 (defn ioc-alts! [state cont-block ports & {:as opts}]
   (ioc/aset-all! state ioc/STATE-IDX cont-block)
   (when-let [cb (clojure.core.async/do-alts
-                  (fn [val]
+                  (^:once fn* [val]
                     (ioc/aset-all! state ioc/VALUE-IDX val)
                     (ioc/run-state-machine-wrapped state))
                   ports
