sets: rename combine/refine to union-all/intersect-all

[factor.git] / core / sets / sets.factor

diff --git a/core/sets/sets.factor b/core/sets/sets.factor
index 2d0f6762638cb3eee0a3987f5fab64e40a8f6500..87f1adaf3b8887a61211e9ea1a70d0b2abab068f 100644 (file)
--- a/core/sets/sets.factor
+++ b/core/sets/sets.factor
@@ -133,12 +133,12 @@ M: sequence cardinality
 M: sequence clear-set
     delete-all ; inline
 
-: combine ( sets -- set/f )
+: union-all ( sets -- set/f )
     [ f ]
     [ [ [ ?members ] map concat ] [ first ] bi set-like ]
     if-empty ;
 
-: refine ( sets -- set/f )
+: intersect-all ( sets -- set/f )
     [ f ] [ [ ] [ intersect ] map-reduce ] if-empty ;
 
 : gather ( ... seq quot: ( ... elt -- ... elts ) -- ... newseq )