From b159995bb4d2dcb1ca8c960f907969ed51177eac Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sun, 10 Mar 2013 09:11:05 -0700
Subject: [PATCH] sets: adding adjoin-all.

---
 core/sets/sets.factor | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/core/sets/sets.factor b/core/sets/sets.factor
index e048edf512..8c49b40c15 100644
--- 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