sets: improve stack effect for "combine".

diff --git a/core/sets/sets.factor b/core/sets/sets.factor
index 06f6e04655417689af351b0194c2dbfe6635f173..5dcee675f99b13a376c8bf824917b820a6c1648d 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 )
+: combine ( sets -- set/f )
     [ f ]
     [ [ [ members ] map concat ] [ first ] bi set-like ]
     if-empty ;