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

[factor.git] / extra / benchmark / yuv-to-rgb / yuv-to-rgb.factor

diff --git a/extra/benchmark/yuv-to-rgb/yuv-to-rgb.factor b/extra/benchmark/yuv-to-rgb/yuv-to-rgb.factor
index 3da80ec192176b9a23681621a7b7848b4242949b..7f4702082100dac904586574944935982b4afa8b 100644 (file)
--- a/extra/benchmark/yuv-to-rgb/yuv-to-rgb.factor
+++ b/extra/benchmark/yuv-to-rgb/yuv-to-rgb.factor
@@ -28,9 +28,9 @@ STRUCT: yuv-buffer
         h >>uv_height
         w >>y_stride
         w >>uv_stride
-        w h * iota [ dup * ] B{ } map-as malloc-byte-array &free >>y
-        w h * 2/ iota [ dup dup * * ] B{ } map-as malloc-byte-array &free >>u
-        w h * 2/ iota [ dup * dup * ] B{ } map-as malloc-byte-array &free >>v ;
+        w h * <iota> [ dup * ] B{ } map-as malloc-byte-array &free >>y
+        w h * 2/ <iota> [ dup dup * * ] B{ } map-as malloc-byte-array &free >>u
+        w h * 2/ <iota> [ dup * dup * ] B{ } map-as malloc-byte-array &free >>v ;
 
 : clamp ( n -- n )
     255 min 0 max ; inline
@@ -75,12 +75,12 @@ STRUCT: yuv-buffer
 
 : yuv>rgb-row ( index rgb yuv y -- index )
     over stride
-    pick y_width>> iota
+    pick y_width>> <iota>
     [ yuv>rgb-pixel ] 4 nwith each ; inline
 
 TYPED: yuv>rgb ( rgb: byte-array yuv: yuv-buffer -- )
     [ 0 ] 2dip
-    dup y_height>> iota
+    dup y_height>> <iota>
     [ yuv>rgb-row ] 2with each
     drop ;