core: Add the shuffler words but without primitives.

[factor.git] / extra / math / combinatorics / bits / bits.factor

diff --git a/extra/math/combinatorics/bits/bits.factor b/extra/math/combinatorics/bits/bits.factor
index 2d8aabde0a194dde7f3c784ab12677f9bfec4214..23c62c9bda06ef4d2de82338e32a2213208d81c3 100644 (file)
--- a/extra/math/combinatorics/bits/bits.factor
+++ b/extra/math/combinatorics/bits/bits.factor
@@ -33,4 +33,4 @@ PRIVATE>
     while drop swap and ; inline
 
 : reduce-permutation-bits ( ... bit-count bits identity quot: ( ... prev elt -- ... next ) -- ... result )
-    [ -rot ] dip each-permutation-bits ; inline
+    -rotd each-permutation-bits ; inline