core: Add the shuffler words but without primitives.

[factor.git] / basis / sequences / merged / merged.factor

diff --git a/basis/sequences/merged/merged.factor b/basis/sequences/merged/merged.factor
index dbfc90d555061626b819f9ec0e2f8e80a376e56b..233683c47a62e60513106843e0fde3135a42ca95 100644 (file)
--- a/basis/sequences/merged/merged.factor
+++ b/basis/sequences/merged/merged.factor
@@ -14,10 +14,10 @@ C: <merged> merged
     [ <merged> ] keep first like ;
 
 : 2merge ( seq1 seq2 -- seq )
-    [ <2merged> ] 2keep drop like ;
+    [ <2merged> ] keepd like ;
 
 : 3merge ( seq1 seq2 seq3 -- seq )
-    [ <3merged> ] 3keep 2drop like ;
+    [ <3merged> ] keepdd like ;
 
 M: merged length
     seqs>> [ [ length ] [ min ] map-reduce ] [ length ] bi * ; inline