From 22edb2ea0d97adf46194a4c97d84d2d31946e22d Mon Sep 17 00:00:00 2001
From: Daniel Ehrenberg <littledan@Macintosh-122.local>
Date: Wed, 24 Feb 2010 13:34:24 -0600
Subject: [PATCH] Adding combine word to new-sets

---
 basis/new-sets/new-sets-tests.factor | 2 ++
 basis/new-sets/new-sets.factor       | 3 +++
 2 files changed, 5 insertions(+)

diff --git a/basis/new-sets/new-sets-tests.factor b/basis/new-sets/new-sets-tests.factor
index 12da3a7515..bd777618a6 100644
--- a/basis/new-sets/new-sets-tests.factor
+++ b/basis/new-sets/new-sets-tests.factor
@@ -38,3 +38,5 @@ IN: new-sets.tests
 [ { 1 2 3 } ] [ HS{ 1 2 3 } { } set-like natural-sort ] unit-test
 
 [ HS{ 1 2 3 } ] [ { 1 2 3 } fast-set ] unit-test
+
+[ { 1 2 3 } ] [ { { 1 } { 2 } { 1 3 } } combine ] unit-test
diff --git a/basis/new-sets/new-sets.factor b/basis/new-sets/new-sets.factor
index 5f42dc40af..435c245311 100644
--- a/basis/new-sets/new-sets.factor
+++ b/basis/new-sets/new-sets.factor
@@ -63,3 +63,6 @@ M: sequence members fast-set members ;
 
 USE: vocabs.loader
 "hash-sets" require
+
+: combine ( sets -- set )
+    f [ union ] reduce ;