tetris-move ( tetris move -- ? )


Vocabulary
tetris.game

Inputs
tetrisan object
movean object


Outputs
?an object


Definition
USING: kernel tetris.piece ;

IN: tetris.game

: tetris-move ( tetris move -- ? )
2dup can-move?
[ [ current-piece ] dip move-piece drop t ] [ 2drop f ] if ;