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

[factor.git] / extra / images / tga / tga.factor

diff --git a/extra/images/tga/tga.factor b/extra/images/tga/tga.factor
index d0b4177d2389b14c0c3ff6b98850be8f1dc5dc3d..6e9d402af58a55da3d6a9bfeebd3a508252d8d30 100644 (file)
--- a/extra/images/tga/tga.factor
+++ b/extra/images/tga/tga.factor
@@ -79,7 +79,7 @@ ERROR: bad-tga-unsupported ;
     41 read ascii decode [ 0 = ] trim ; inline
 
 : read-author-comments ( -- string )
-    4 iota [ drop 81 read ascii decode [ 0 = ] trim ] map concat ; inline
+    4 <iota> [ drop 81 read ascii decode [ 0 = ] trim ] map concat ; inline
 
 : read-date-timestamp ( -- timestamp )
     timestamp new
@@ -132,16 +132,16 @@ ERROR: bad-tga-unsupported ;
     1 read le> 4 = ; inline
 
 : read-scan-line-table ( height -- scan-offsets )
-    iota [ drop 4 read le> ] map ; inline
+    <iota> [ drop 4 read le> ] map ; inline
 
 : read-postage-stamp-image ( depth -- postage-data )
     8 align 8 / 1 read le> 1 read le> * * read ; inline
 
 :: read-color-correction-table ( -- correction-table )
-    256 iota
+    256 <iota>
     [
         drop
-        4 iota
+        4 <iota>
         [
             drop
             2 read le> 65535 /f :> alpha
@@ -153,7 +153,7 @@ ERROR: bad-tga-unsupported ;
     ] map ; inline
 
 : read-developer-directory ( -- developer-directory )
-    2 read le> iota
+    2 read le> <iota>
     [
         drop
         2 read le>