In channel datafy, include the chan in meta under :clojure.datafy/obj

clojure · Mar 4, 2025 · 7cc715a · 7cc715a
1 parent 58ccbff
commit 7cc715a
Showing 1 changed file with 7 additions and 5 deletions.
diff --git a/src/main/clojure/clojure/core/async/impl/channels.clj b/src/main/clojure/clojure/core/async/impl/channels.clj
@@ -309,8 +309,10 @@
   ManyToManyChannel
   (datafy [c]
     (let [b (.buf c)]
-      (cond->
-        {:put-count (count (.puts c))
-         :take-count (count (.takes c))
-         :closed? (impl/closed? c)}
-        b (assoc :buffer (clojure.datafy/datafy b))))))
+      (with-meta
+        (cond->
+          {:put-count (count (.puts c))
+           :take-count (count (.takes c))
+           :closed? (impl/closed? c)}
+          b (assoc :buffer (datafy/datafy b)))
+        {::datafy/obj c}))))