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

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

diff --git a/extra/images/pbm/pbm.factor b/extra/images/pbm/pbm.factor
index ae1b2582461c62c5979afc0a43005fe0e2b9a7cd..f0462df554606971bce32db9e9cb914af1384992 100644 (file)
--- a/extra/images/pbm/pbm.factor
+++ b/extra/images/pbm/pbm.factor
@@ -37,7 +37,7 @@ SINGLETON: pbm-image
 :: read-binary-bits ( width height -- )
     width 8 align 8 / height * read
     width 8 align 8 / <groups> [| row |
-        width iota [| n |
+        width <iota> [| n |
             n 8 / floor row nth
             n 8 mod 7 swap - bit?
             [ 0 ] [ 255 ] if ,