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

[factor.git] / extra / sequences / extras / extras.factor

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index 4cb2536f7c388a099fa318a2c92c74c59fe2e84a..0832d15a46248e67b95a79f71dcdebab08eb7558 100644 (file)
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -207,7 +207,7 @@ ERROR: underlying-mismatch slice1 slice2 ;
     ] until 3drop ;
 
 : all-rotations ( seq -- seq' )
-    dup length iota [ rotate ] with map ;
+    dup length <iota> [ rotate ] with map ;
 
 <PRIVATE
 
@@ -295,7 +295,7 @@ PRIVATE>
 
 : round-robin ( seq -- newseq )
     [ { } ] [
-        [ longest length iota ] keep
+        [ longest length <iota> ] keep
         [ [ ?nth ] with map ] curry map concat sift
     ] if-empty ;