bit-sets: use adjoin-all.

diff --git a/basis/bit-sets/bit-sets.factor b/basis/bit-sets/bit-sets.factor
index 320f0d3fa781df21660b423819f28e6ec5192ae4..b70b62a74b409a49eecb7cf33cf129c8710245e5 100644 (file)
--- a/basis/bit-sets/bit-sets.factor
+++ b/basis/bit-sets/bit-sets.factor
@@ -76,7 +76,7 @@ M: bit-set members
     over bit-set? [ 2dup [ table>> length ] same? ] [ f ] if
     [ drop ] [
         [ members ] dip table>> length <bit-set>
-        [ [ adjoin ] curry each ] keep
+        [ adjoin-all ] keep
     ] if ;
 
 PRIVATE>