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

[factor.git] / extra / gpu / render / render.factor

diff --git a/extra/gpu/render/render.factor b/extra/gpu/render/render.factor
index 81143ecdd70824d5b78d2ebdede0c90afff33747..d173c46cc51b2ecc7ff9bd4e3732252006d60e21 100755 (executable)
--- a/extra/gpu/render/render.factor
+++ b/extra/gpu/render/render.factor
@@ -239,7 +239,7 @@ DEFER: uniform-texture-accessors
         [ uniform-tuple-texture-accessors ] if
     ] [
         2dup swap empty? not and [
-            iota [
+            <iota> [
                 [ swap nth ] swap prefix
                 over length 1 = [ swap first append ] [ swap suffix ] if
             ] with map
@@ -398,7 +398,7 @@ DEFER: [bind-uniform-tuple]
         { mat4x3-uniform { [ dim 0 ] dip 4 3 >uniform-matrix-array glUniformMatrix4x3fv } }
         { mat4-uniform   { [ dim 0 ] dip 4 4 >uniform-matrix-array glUniformMatrix4fv   } }
 
-        { texture-uniform { drop dim dup iota [ texture-unit + ] int-array{ } map-as glUniform1iv } }
+        { texture-uniform { drop dim dup <iota> [ texture-unit + ] int-array{ } map-as glUniform1iv } }
     } at [ uniform invalid-uniform-type ] unless* >quotation :> value-quot
 
     type uniform-type-texture-units dim * texture-unit +
@@ -450,7 +450,7 @@ DEFER: [bind-uniform-tuple]
 :: [bind-uniform-struct] ( value>>-quot type texture-unit name dim -- texture-unit' quot )
     dim
     [
-        iota
+        <iota>
         [ [ [ swap nth ] swap prefix ] map ]
         [ [ number>string name "[" append "]." surround ] map ] bi
     ] [