sets: document combine word

diff --git a/core/sets/sets-docs.factor b/core/sets/sets-docs.factor
index 5197e57ad0cf8c89e9ded298790b6d823ead58b5..33c7e6a27acd6ec6c7daa9a52000a8038fec2b4c 100644 (file)
--- a/core/sets/sets-docs.factor
+++ b/core/sets/sets-docs.factor
@@ -190,3 +190,7 @@ HELP: null?
 HELP: cardinality
 { $values { "set" set } { "n" "a non-negative integer" } }
 { $description "Returns the number of elements in the set. All sets support this operation." } ;
+
+HELP: combine
+{ $values { "seq" "a sequence of sets" } { "set" set } }
+{ $description "Outputs the union of a sequence of sets, or " { $link f } " if the sequence is empty." } ;

diff --git a/core/sets/sets.factor b/core/sets/sets.factor
index 5dcee675f99b13a376c8bf824917b820a6c1648d..06f6e04655417689af351b0194c2dbfe6635f173 100644 (file)
--- a/core/sets/sets.factor
+++ b/core/sets/sets.factor
@@ -109,7 +109,7 @@ M: sequence null?
 M: sequence cardinality
     length ;
 
-: combine ( sets -- set/f )
+: combine ( sets -- set )
     [ f ]
     [ [ [ members ] map concat ] [ first ] bi set-like ]
     if-empty ;