sets: update docs for "combine".

db4
John Benediktsson 2011-09-17 08:11:48 -07:00
parent 91824e5697
commit e8dad98240
2 changed files with 2 additions and 2 deletions

View File

@ -192,5 +192,5 @@ HELP: cardinality
{ $description "Returns the number of elements in the set. All sets support this operation." } ;
HELP: combine
{ $values { "sets" "a sequence of sets" } { "set" set } }
{ $values { "sets" "a sequence of sets" } { "set/f" "a " { $link set } " or " { $link f } } }
{ $description "Outputs the union of a sequence of sets, or " { $link f } " if the sequence is empty." } ;

View File

@ -116,7 +116,7 @@ M: sequence null?
M: sequence cardinality
pruned length ;
: combine ( sets -- set )
: combine ( sets -- set/f )
[ f ]
[ [ [ members ] map concat ] [ first ] bi set-like ]
if-empty ;