remove non-primitive-related uses of tuck from basis

[factor.git] / basis / lists / lazy / lazy.factor

diff --git a/basis/lists/lazy/lazy.factor b/basis/lists/lazy/lazy.factor
index 7b386e9c819ea1acfc93988b97227fcfb8666355..57cacaa4945c6d83bf56bf317c65ab236ec51ab7 100644 (file)
--- a/basis/lists/lazy/lazy.factor
+++ b/basis/lists/lazy/lazy.factor
@@ -114,7 +114,7 @@ M: lazy-until car ( lazy-until -- car )
      cons>> car ;
 
 M: lazy-until cdr ( lazy-until -- cdr )
-     [ cons>> unswons ] keep quot>> tuck call( elt -- ? )
+     [ quot>> ] [ cons>> unswons ] bi over call( elt -- ? )
      [ 2drop nil ] [ luntil ] if ;
 
 M: lazy-until nil? ( lazy-until -- ? )