Merge branch 'master' into dev-vthreads-exec

Author: fogus

Diff for: README.md

@@ -7,20 +7,20 @@ A Clojure library providing facilities for async programming and communication.
 
 This project follows the version scheme MAJOR.MINOR.COMMITS where MAJOR and MINOR provide some relative indication of the size of the change, but do not follow semantic versioning. In general, all changes endeavor to be non-breaking (by moving to new names rather than by breaking existing names). COMMITS is an ever-increasing counter of commits since the beginning of this repository.
 
-Latest release: 1.8.735
+Latest release: 1.8.741
 
 * [All Released Versions](http://search.maven.org/#search%7Cgav%7C1%7Cg%3A%22org.clojure%22%20AND%20a%3A%22core.async%22)
 
 [deps.edn](https://clojure.org/reference/deps_and_cli) dependency information:
 
 ```clj
-  org.clojure/core.async {:mvn/version "1.8.735"}
+  org.clojure/core.async {:mvn/version "1.8.741"}
  ```
 
 [Leiningen](https://github.com/technomancy/leiningen) dependency information:
 
 ```clj
- [org.clojure/core.async "1.8.735"]
+ [org.clojure/core.async "1.8.741"]
 ```
 
 [Maven](http://maven.apache.org/) dependency information:
@@ -29,7 +29,7 @@ Latest release: 1.8.735
 <dependency>
   <groupId>org.clojure</groupId>
   <artifactId>core.async</artifactId>
-  <version>1.8.735</version>
+  <version>1.8.741</version>
 </dependency>
 ```
 
@@ -65,6 +65,8 @@ Copyright © Rich Hickey and contributors
 
 ## Changelog
 
+* Release 1.8.741 on 2025-04-07
+  * [ASYNC-234](https://clojure.atlassian.net/browse/ASYNC-234) (CLJ) Inactive alt handlers hold strong references to (potentially large) caller state after the alt completes
 * Release 1.8.735 on 2025.04.02
   * Fix reflection warnings when using `clojure.core.async.go-checking`
 * Release 1.8.730 on 2025.04.02, effective changes since last non-beta release:

Diff for: pom.xml

@@ -3,7 +3,7 @@
   <groupId>org.clojure</groupId>
   <artifactId>core.async</artifactId>
   <!-- Don't set this manually! Call script/build/update_version -->
-  <version>1.9.0-SNAPSHOT</version>
+  <version>1.8.742-SNAPSHOT</version>
   <packaging>jar</packaging>
   <name>core.async</name>
   <description>Facilities for async programming and communication in Clojure</description>

Diff for: src/main/clojure/clojure/core/async.clj

@@ -365,7 +365,7 @@ unset - default to ioc when aot, always
   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))))
@@ -475,7 +475,7 @@ unset - default to ioc when aot, always
 (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