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

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

diff --git a/basis/compiler/cfg/rpo/rpo.factor b/basis/compiler/cfg/rpo/rpo.factor
index 402d74d6cb74cc803383503d2070c24b452b1830..2c3435daa005d738aa98f1bcc90cb7a67885825c 100644 (file)
--- a/basis/compiler/cfg/rpo/rpo.factor
+++ b/basis/compiler/cfg/rpo/rpo.factor
@@ -13,7 +13,7 @@ IN: compiler.cfg.rpo
     ] [ drop ] if ; inline recursive
 
 : number-blocks ( blocks -- )
-    dup length iota <reversed>
+    dup length <iota> <reversed>
     [ >>number drop ] 2each ;
 
 : post-order ( cfg -- blocks )