core: Add the shuffler words but without primitives.

[factor.git] / basis / math / combinatorics / combinatorics.factor

diff --git a/basis/math/combinatorics/combinatorics.factor b/basis/math/combinatorics/combinatorics.factor
index c9f9a0e5da76505c86d564e17a88f7d9abac257e..d7ddc2ef6f8f01014c45a7e6b41bd3e52b1356c9 100644 (file)
--- a/basis/math/combinatorics/combinatorics.factor
+++ b/basis/math/combinatorics/combinatorics.factor
@@ -244,7 +244,7 @@ PRIVATE>
     [ drop pick [ combination ] [ 3drop f ] if ] 3bi ; inline
 
 : reduce-combinations ( ... seq k identity quot: ( ... prev elt -- ... next ) -- ... result )
-    [ -rot ] dip each-combination ; inline
+    -rotd each-combination ; inline
 
 : all-subsets ( seq -- subsets )
     dup length [0,b] [ all-combinations ] with map concat ;