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

[factor.git] / extra / tetris / gl / gl.factor

diff --git a/extra/tetris/gl/gl.factor b/extra/tetris/gl/gl.factor
index f9323f917ef067bfb3b6ec98eeb9ddda7c387c73..d5aed2fca235c89f0e3aed6a1b3576b6bfa3d29a 100644 (file)
--- a/extra/tetris/gl/gl.factor
+++ b/extra/tetris/gl/gl.factor
@@ -26,10 +26,10 @@ IN: tetris.gl
     [ gl-color 2array draw-block ] [ 3drop ] if ;
 
 : draw-row ( y row -- )
-    [ length iota swap ] keep [ (draw-row) ] 2curry each ;
+    [ length <iota> swap ] keep [ (draw-row) ] 2curry each ;
 
 : draw-board ( board -- )
-    rows>> [ length iota ] keep
+    rows>> [ length <iota> ] keep
     [ dupd nth draw-row ] curry each ;
 
 : scale-board ( width height board -- )