bit-sets: use adjoin-all.

2013-03-23 22:07:22 -07:00 · 2013-03-23 22:07:22 -07:00 · 5158e502ba
parent ecbf94e56d
commit 5158e502ba
1 changed files with 1 additions and 1 deletions
--- 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>