                                   (dissoc listens addr-port)
                                   streams
                                   results)))
-                     (if-let [[keep-open-bool result-ch result-msg] ; Or, handle result-ch aput.
+                     (if-let [[keep-open-bool result-ch result-msg] ; Or, was result-ch aput.
                               (first (filter #(= (second %) ch) results))]
                        (do (when (not keep-open-bool)
                              (aclose net ch))

                 (net-clean-up net listens streams results))
               (= ch request-connect-ch) ; Client connect request.
               (if-let [[accept-addr accept-port from-addr result-ch] v]
                 ; TODO: Need to model connection delay, perhaps with a generic "later".
                 (if-let [[accept-ch close-accept-ch] (get listens [accept-addr accept-port])]
                   (let [from-port (+ 10000 ts)
                         to-port (+ 10000 ts)
                         end-point-buf-size (get opts :end-point-buf-size 0)

(ns cbfg.net
  (:require-macros [cbfg.act :refer [achan achan-buf act act-loop aclose aalts]]))

(defn net-clean-up [actx listens streams results]
  (act cleanup actx
