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

fix missing unreduced calls in reduce

Browse source
This commit is contained in:
Christophe Grand 2015-09-15 14:07:09 +02:00
parent 923a656f89
commit 8e98bc0b2f
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -54,7 +54,7 @@
(if-some [f (some-kvrf f)] (if-some [f (some-kvrf f)]
(kvrf (kvrf
([] (rf)) ([] (rf))
([acc] (rf (rf acc (f (unreduced @vacc))))) ([acc] (rf (unreduced (rf acc (f (unreduced @vacc))))))
([acc x] ([acc x]
(if (reduced? (vswap! vacc f x)) (if (reduced? (vswap! vacc f x))
(reduced acc) (reduced acc)
@ -65,7 +65,7 @@
acc))) acc)))
(fn (fn
([] (rf)) ([] (rf))
([acc] (rf (rf acc (f (unreduced @vacc))))) ([acc] (rf (unreduced (rf acc (f (unreduced @vacc))))))
([acc x] ([acc x]
(if (reduced? (vswap! vacc f x)) (if (reduced? (vswap! vacc f x))
(reduced acc) (reduced acc)