luciano/xforms
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

removing ((

Browse source
This commit is contained in:
Christophe Grand 2016-10-06 09:50:47 +02:00
parent 85ee1fb1d3
commit 2eb63f6578
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/net/cgrand/xforms.clj
View file

@ -233,7 +233,7 @@
(fn
([] (rf))
([acc]
(rf (clj/reduce ((take @n) rf) acc padding-coll)))
(transduce (take @n) rf acc padding-coll))
([acc x]
(vswap! n dec)
(rf acc x))))))
@ -441,8 +441,7 @@
(let [[f args] (if (map? xforms-map)
[juxt-map (comp (by-key (map #(% first))) cat)]
[juxt (map #(% first))])]
(fn [rf]
((reduce (apply f (sequence args xforms-map))) rf))))
(reduce (apply f (sequence args xforms-map)))))
([xforms-map coll]
(transduce (transjuxt xforms-map) first coll)))