factor: trim using lists

[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..e3dc51adbcea9f479821bce5c1cd986a1c695549 100644 (file)
--- a/extra/math/combinatorics/bits/bits.factor
+++ b/extra/math/combinatorics/bits/bits.factor
@@ -1,6 +1,6 @@
 ! Copyright (C) 2013 John Benediktsson
 ! See http://factorcode.org/license.txt for BSD license
-USING: fry kernel math math.bitwise sequences ;
+USING: kernel math math.bitwise sequences ;
 IN: math.combinatorics.bits
 
 : next-permutation-bits ( v -- w )
@@ -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