gistfile1.clj

(defn put-into-ch [channel car]
  (.put channel car))

(defn take-from-channel [channel]
  (.take channel))
  
(defn ch->lane [{:keys [channel state] :as entity} d-fn]
  (if-not (zero? (.size channel))
    (add-to-lane entity (take-from-channel channel) d-fn)
    entity))