greg/mentat
1
0
Fork 0
Code Issues 294 Pull requests Projects Releases 9 Packages Wiki Activity

Pre: Fix bad symbol.

Browse source
This commit is contained in:
Nick Alexander 2016-07-15 12:45:35 -07:00
parent b545ddc0e1
commit 04e772a5bc
1 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/datomish/exec_repl.cljc
View file

@ -24,14 +24,14 @@
[datomish.util]]))) [datomish.util]])))
#?(: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 (channel->lazy-seq channel))))))) (cons v (pair-channel->lazy-seq channel)))))))
#?(:clj #?(:clj
(defn run-to-pair-seq (defn run-to-pair-seq