core: Add the shuffler words but without primitives.

[factor.git] / basis / grouping / grouping.factor

diff --git a/basis/grouping/grouping.factor b/basis/grouping/grouping.factor
index e2309d9884d6cc90dfa79c831886778f88fc6ca5..0edcb3d80b30b3c45b2311a873eb881c9030b7cc 100644 (file)
--- a/basis/grouping/grouping.factor
+++ b/basis/grouping/grouping.factor
@@ -61,7 +61,7 @@ M: clumps group@
 <PRIVATE
 
 : map-like ( seq n quot -- seq )
-    2keep drop '[ _ like ] map ; inline
+    keepd '[ _ like ] map ; inline
 
 PRIVATE>