(filter< p ch)
(filter< p ch buf-or-n)
Deprecated - this function will be removed. Use transducer instead
Source
(defn
filter<
"Deprecated - this function will be removed. Use transducer instead"
([p ch] (filter< p ch nil))
([p ch buf-or-n]
(let
[out (chan buf-or-n)]
(go-loop
[]
(let
[val (<! ch)]
(if
(nil? val)
(close! out)
(do (when (p val) (>! out val)) (recur)))))
out)))