sets: update docs for "combine".

diff --git a/core/sets/sets-docs.factor b/core/sets/sets-docs.factor
index 220de91942ae6972d5b9c35eca7cae9d889efb70..4067948c0e7d0499e092c87b5b64f8c88f4f13ff 100644 (file)
--- a/core/sets/sets-docs.factor
+++ b/core/sets/sets-docs.factor
@@ -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." } ;

diff --git a/core/sets/sets.factor b/core/sets/sets.factor
index 0f50a862af585a3f93adefc241513a411dbcbb7e..e5db8b2946e93fcb06ac3b21a2a7b8daf5eaee21 100644 (file)
--- a/core/sets/sets.factor
+++ b/core/sets/sets.factor
@@ -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 ;