clojure async channels as lazy (and blocking!) sequences

channel-as-seq.clj

(defn seq!!
  "Returns a (blocking!) lazy sequence read from a channel."
  [c]
  (lazy-seq
   (when-let [v (<!! c)]
     (cons v (seq!! c)))))

(comment
  (def stream (chan))
  (go (dotimes [x 16]
        (<! (timeout 500))
        (>! stream x))
      (close! stream))
  (doseq [x (seq!! stream)] (println x)))

Slight improvement: when-let could be a when-some to allow for streams of booleans.