                  (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])]
+                 ; TODO: Need to model connect 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)

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

             results []] ; A result entry is [keep-open-bool result-ch msg].
            (let [close-accept-chs (map second (vals listens))
                  close-recv-chs (mapcat (fn [[send-ch stream]]
                                           (when-let [close-recv-ch
                                                      (:close-recv-ch stream)]
                                             [close-recv-ch]))
                                         streams)
                  deliverable-msgs (mapcat (fn [[send-ch stream]]
                                             (when-let [[deliver-at msg]
                                                        (first (:msgs stream))]
                                               (when (and (:recv-ch stream)
                                                          (>= ts deliver-at))
                                                 [[(:recv-ch stream) msg]])))
