Fixing implementation of leach

diff --git a/extra/lists/lists.factor b/extra/lists/lists.factor
index b7e5e6523fa5f69350e6116da6ddd73a5da36924..f9b7b89e5b69588afa6c3e14642ba114bc471967 100644 (file)
--- a/extra/lists/lists.factor
+++ b/extra/lists/lists.factor
@@ -54,11 +54,10 @@ M: cons nil? ( cons -- ? )
     0 (llength) ;
 
 : leach ( list quot -- )
-    over nil? [ 2drop ] [ [ uncons ] dip tuck call leach ] if ; inline
+    over nil? [ 2drop ] [ [ uncons swap ] dip tuck [ call ] 2dip leach ] if ; inline
     
 : lreduce ( list identity quot -- result )
-    pick nil? [ drop nip ]
-    [ [ uncons ] 2dip swapd [ call ] keep lreduce ] if ; inline
+    swapd leach ; inline
     
 : (lmap) ( acc cons quot -- seq )    
     over nil? [ 2drop ]