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

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

diff --git a/basis/compiler/cfg/stacks/stacks.factor b/basis/compiler/cfg/stacks/stacks.factor
index 24bc6472181c451e7d9543891d0510f4653b3107..9b6e3aef994c119685dc794ee437d5e61eb5ee27 100644 (file)
--- a/basis/compiler/cfg/stacks/stacks.factor
+++ b/basis/compiler/cfg/stacks/stacks.factor
@@ -24,7 +24,7 @@ IN: compiler.cfg.stacks
     [ swap new swap >>n ] with map <reversed> ;
 
 : stack-locs ( loc-class n -- locs )
-    iota create-locs ;
+    <iota> create-locs ;
 
 : (load-vregs) ( n loc-class -- vregs )
     swap stack-locs [ peek-loc ] map ;