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