X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=extra%2Ftetris%2Fgame%2Fgame.factor;h=ac5dbc2579ea3f31944b460ada4e38aae2d21d7c;hp=b6e2539bcab0596babd53b4086f1224bb040c314;hb=6d4293b5822d769619f66e46e64b704ddfe41b43;hpb=b7bb69b178712e9d135362ebd6efa69c9b8371ba diff --git a/extra/tetris/game/game.factor b/extra/tetris/game/game.factor index b6e2539bca..ac5dbc2579 100644 --- a/extra/tetris/game/game.factor +++ b/extra/tetris/game/game.factor @@ -42,7 +42,7 @@ CONSTANT: default-height 20 level 1 - 60 * 1,000,000,000 swap - ; : add-block ( tetris block -- ) - over [ board>> ] 2dip current-piece tetromino>> colour>> set-block ; + over [ board>> ] 2dip current-piece tetromino>> color>> set-block ; : game-over? ( tetris -- ? ) [ board>> ] [ next-piece ] bi piece-valid? not ;