diff --git a/core/sets/sets-docs.factor b/core/sets/sets-docs.factor index 5197e57ad0..33c7e6a27a 100644 --- 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 5dcee675f9..06f6e04655 100644 --- 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 ;