core: Rename iota to <iota> so we can have TUPLE: iota ... ; instead of TUPLE: iota...

[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 9bc5d9a8c418e7f21a23d3f634e55de93bf249bc..0c24d993e28f8f5eb55c6be06f3a2dd95e91cb68 100644 (file)
--- a/basis/compiler/cfg/stacks/padding/padding.factor
+++ b/basis/compiler/cfg/stacks/padding/padding.factor
@@ -21,7 +21,7 @@ IN: compiler.cfg.stacks.padding
     swap 2dup second member? [ 2drop 2 ] [ first >= [ 1 ] [ 0 ] if ] if ;
 
 : shift-stack ( n stack -- stack' )
-    first2 pick '[ _ + ] map [ 0 >= ] filter pick 0 max iota sets:union
+    first2 pick '[ _ + ] map [ 0 >= ] filter pick 0 max <iota> sets:union
     [ + ] dip 2array ;
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!