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

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

diff --git a/basis/compiler/cfg/stacks/local/local.factor b/basis/compiler/cfg/stacks/local/local.factor
index f02e6dfaa4a14bf115ebd964ab540c76c77eccb4..ce9b1b2e5c3052a761cd868f184aec8e3199759e 100644 (file)
--- a/basis/compiler/cfg/stacks/local/local.factor
+++ b/basis/compiler/cfg/stacks/local/local.factor
@@ -58,7 +58,7 @@ SYMBOLS: locs>vregs local-peek-set replaces ;
     height-state get global-loc>local replaces get set-at ;
 
 : kill-locations ( begin inc -- seq )
-    0 min neg iota [ swap - ] with map ;
+    0 min neg <iota> [ swap - ] with map ;
 
 : local-kill-set ( ds-begin ds-inc rs-begin rs-inc -- set )
     [ kill-locations ] 2bi@