sets: adding adjoin-all.

2013-03-10 09:11:05 -07:00 · 2013-03-10 09:11:05 -07:00 · b159995bb4
parent 50db0745d6
commit b159995bb4
1 changed files with 4 additions and 1 deletions
--- a/core/sets/sets.factor
+++ b/core/sets/sets.factor
@ -158,8 +158,11 @@ M: sequence clear-set
 : ?adjoin ( elt set -- ? )
    2dup in? [ 2drop f ] [ adjoin t ] if ; inline

+: adjoin-all ( seq set -- )
+    [ adjoin ] curry each ;
+
 : union! ( set1 set2 -- set1 )
-    ?members over [ adjoin ] curry each ;
+    ?members over adjoin-all ;

 : diff! ( set1 set2 -- set1 )
    dupd sequence/tester [ dup ] prepose pick