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

[factor.git] / extra / project-euler / common / common.factor

diff --git a/extra/project-euler/common/common.factor b/extra/project-euler/common/common.factor
index 4b4548e8191bb4e780700d109e59d338f88d6e9a..d3248a9dfcbf43113795bb44717c242121a58214 100644 (file)
--- a/extra/project-euler/common/common.factor
+++ b/extra/project-euler/common/common.factor
@@ -48,7 +48,7 @@ IN: project-euler.common
 HINTS: count-digits fixnum ;
 
 : max-children ( seq -- seq )
-    [ dup length 1 - iota [ nth-pair max , ] with each ] { } make ;
+    [ dup length 1 - <iota> [ nth-pair max , ] with each ] { } make ;
 
 ! Propagate one row into the upper one
 : propagate ( bottom top -- newtop )