Indenting.

This commit is contained in:
Nick Alexander 2016-07-15 12:45:35 -07:00 committed by Richard Newman
parent 4262b10f55
commit f4b9b867a4

View file

@ -25,14 +25,14 @@
[cljs.core.async :refer [<!]]]))) [cljs.core.async :refer [<!]]])))
#?(:clj #?(:clj
(defn pair-channel->lazy-seq (defn pair-channel->lazy-seq
"Returns a blocking lazy sequence of items taken from the provided channel." "Returns a blocking lazy sequence of items taken from the provided channel."
[channel] [channel]
(lazy-seq (lazy-seq
(when-let [v (clojure.core.async/<!! channel)] (when-let [v (clojure.core.async/<!! channel)]
(if (second v) (if (second v)
(cons v nil) (cons v nil)
(cons v (pair-channel->lazy-seq channel))))))) (cons v (pair-channel->lazy-seq channel)))))))
#?(:clj #?(:clj
(defn run-to-pair-seq (defn run-to-pair-seq