Fixing various test failures and updating some more vocabs for >r/r> removal

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

diff --git a/extra/tetris/gl/gl.factor b/extra/tetris/gl/gl.factor
index a9b00ffb7cd19343da7adf0659e28052e37c8a1b..e7c01742d5cf31ec29d9ff252346e7f097aed359 100644 (file)
--- a/extra/tetris/gl/gl.factor
+++ b/extra/tetris/gl/gl.factor
@@ -20,7 +20,7 @@ IN: tetris.gl
 
 ! TODO: move implementation specific stuff into tetris-board
 : (draw-row) ( x y row -- )
-    >r over r> nth dup
+    [ over ] dip nth dup
     [ gl-color 2array draw-block ] [ 3drop ] if ;
 
 : draw-row ( y row -- )