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

[factor.git] / basis / unicode / breaks / breaks.factor

diff --git a/basis/unicode/breaks/breaks.factor b/basis/unicode/breaks/breaks.factor
index 1aa5ec3000059ea6591c5dbc870aa47cf9e53de3..a032096b6f5f9eeec11f4078432507695a9b175e 100644 (file)
--- a/basis/unicode/breaks/breaks.factor
+++ b/basis/unicode/breaks/breaks.factor
@@ -84,14 +84,14 @@ SYMBOL: table
 
 : make-grapheme-table ( -- )
     { CR } { LF } connect
-    { Control CR LF } graphemes iota disconnect
-    graphemes iota { Control CR LF } disconnect
+    { Control CR LF } graphemes <iota> disconnect
+    graphemes <iota> { Control CR LF } disconnect
     { L } { L V LV LVT } connect
     { LV V } { V T } connect
     { LVT T } { T } connect
-    graphemes iota { Extend } connect
-    graphemes iota { SpacingMark } connect
-    { Prepend } graphemes iota connect ;
+    graphemes <iota> { Extend } connect
+    graphemes <iota> { SpacingMark } connect
+    { Prepend } graphemes <iota> connect ;
 
 "grapheme-table" create-word-in
 graphemes init-table table
@@ -146,8 +146,8 @@ SYMBOL: check-number-after
 
 : make-word-table ( -- )
     { wCR } { wLF } connect
-    { wNewline wCR wLF } unicode-words iota disconnect
-    unicode-words iota { wNewline wCR wLF } disconnect
+    { wNewline wCR wLF } unicode-words <iota> disconnect
+    unicode-words <iota> { wNewline wCR wLF } disconnect
     { wALetter } { wMidLetter wMidNumLet } check-letter-after set-table
     { wMidLetter wMidNumLet } { wALetter } check-letter-before set-table
     { wNumeric wALetter } { wNumeric wALetter } connect