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

[factor.git] / basis / compiler / cfg / stacks / padding / padding.factor

diff --git a/basis/compiler/cfg/stacks/padding/padding.factor b/basis/compiler/cfg/stacks/padding/padding.factor
index 0c24d993e28f8f5eb55c6be06f3a2dd95e91cb68..9b1a0f92921488b1b509a56ec28b11d22a978f4a 100644 (file)
--- a/basis/compiler/cfg/stacks/padding/padding.factor
+++ b/basis/compiler/cfg/stacks/padding/padding.factor
@@ -15,7 +15,7 @@ IN: compiler.cfg.stacks.padding
     first2 swapd remove 2array ;
 
 : combine-stacks ( stacks -- stack )
-    [ first first ] [ [ second ] map sets:combine ] bi 2array ;
+    [ first first ] [ [ second ] map sets:union-all ] bi 2array ;
 
 : classify-read ( stack n -- val )
     swap 2dup second member? [ 2drop 2 ] [ first >= [ 1 ] [ 0 ] if ] if ;