Language change: tuple slot setter words with stack effect ( value object -- ) are...

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

diff --git a/extra/tetris/tetris.factor b/extra/tetris/tetris.factor
index 66df0cdb2d7161f82549b5891ec92c045f60abef..e5d4f408ff388730ac5a88d6a0c8c9885a4994f2 100644 (file)
--- a/extra/tetris/tetris.factor
+++ b/extra/tetris/tetris.factor
@@ -52,7 +52,7 @@ tetris-gadget H{
     [ tetris>> ?update ] [ relayout-1 ] bi ;
 
 M: tetris-gadget graft* ( gadget -- )
-    [ [ tick ] curry 100 milliseconds every ] keep (>>alarm) ;
+    [ [ tick ] curry 100 milliseconds every ] keep alarm<< ;
 
 M: tetris-gadget ungraft* ( gadget -- )
     [ cancel-alarm f ] change-alarm drop ;