From 8e98bc0b2fd1fbd6ea18259c2d024051d0b28cc2 Mon Sep 17 00:00:00 2001 From: Christophe Grand Date: Tue, 15 Sep 2015 14:07:09 +0200 Subject: [PATCH] fix missing unreduced calls in reduce --- src/net/cgrand/xforms.clj | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/net/cgrand/xforms.clj b/src/net/cgrand/xforms.clj index a4c9335..db3e125 100644 --- a/src/net/cgrand/xforms.clj +++ b/src/net/cgrand/xforms.clj @@ -54,7 +54,7 @@ (if-some [f (some-kvrf f)] (kvrf ([] (rf)) - ([acc] (rf (rf acc (f (unreduced @vacc))))) + ([acc] (rf (unreduced (rf acc (f (unreduced @vacc)))))) ([acc x] (if (reduced? (vswap! vacc f x)) (reduced acc) @@ -65,7 +65,7 @@ acc))) (fn ([] (rf)) - ([acc] (rf (rf acc (f (unreduced @vacc))))) + ([acc] (rf (unreduced (rf acc (f (unreduced @vacc)))))) ([acc x] (if (reduced? (vswap! vacc f x)) (reduced acc)