Adding combine word to new-sets

diff --git a/basis/new-sets/new-sets-tests.factor b/basis/new-sets/new-sets-tests.factor
index 12da3a75154432a858c7708f50de4583ea8b9a6d..bd777618a6e1d3c3a598c8ee419fd96652a14c01 100644 (file)
--- 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 5f42dc40af15a2da2eb98d9a18e5a77ea34caa18..435c24531155f4bc654f4b7f4ea7d99649d1a695 100644 (file)
--- 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 ;