sets: adding adjoin-all.

diff --git a/core/sets/sets.factor b/core/sets/sets.factor
index e048edf512cab38710d102b6b7435fbf512070fe..8c49b40c158840144da93be526c6314dfe93b0bf 100644 (file)
--- 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