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

[factor.git] / basis / compiler / cfg / intrinsics / allot / allot.factor

diff --git a/basis/compiler/cfg/intrinsics/allot/allot.factor b/basis/compiler/cfg/intrinsics/allot/allot.factor
index ff6e1b9b5c4ddaa57ffc7b11daf076d5f231fc80..65623ce47390ea211810ccd9e055462224de36d9 100644 (file)
--- a/basis/compiler/cfg/intrinsics/allot/allot.factor
+++ b/basis/compiler/cfg/intrinsics/allot/allot.factor
@@ -75,7 +75,7 @@ IN: compiler.cfg.intrinsics.allot
 :: zero-byte-array ( len reg -- )
     0 ^^load-literal :> elt
     reg ^^tagged>integer :> reg
-    len cell align cell /i iota [
+    len cell align cell /i <iota> [
         [ elt reg ] dip cells byte-array-offset + int-rep f ##store-memory-imm,
     ] each ;