sets: improve stack effect for "combine".

2011-01-26 17:24:55 -08:00 · 2011-01-26 17:24:55 -08:00 · ac950d8bd7
parent b4ca9daf27
commit ac950d8bd7
1 changed files with 1 additions and 1 deletions
--- 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 ;