      act-ch#))
 
 (defmacro act-loop [child-actx-binding-name actx bindings & body]
+  ; Use 'act-loop' instead of 'go-loop'.
   (let [m (->> bindings
                (partition 2)
                (map first)

                        [:act-loop :loop-state (sorted-map ~@m)])
            ~@body))))

(defmacro achan [actx]
  `(achan-buf ~actx nil))

(defmacro achan-buf [actx buf-or-size]

;; These "act" wrappers around ago provide parent-child tracking and
;; event hooks.  Useful for building things like visualizations and
;; simulations.  (ago ehances core.async with snapshots/rollback.)

(ns cbfg.act
  (:require [cljs.core.async.macros :refer [go]]
