can-move? ( tetris move -- ? )


Vocabulary
tetris.game

Inputs
tetrisan object
movean object


Outputs
?an object


Definition
USING: accessors kernel tetris.board tetris.piece ;

IN: tetris.game

: can-move? ( tetris move -- ? )
[ drop board>> ] [ [ current-piece clone ] dip move-piece ]
2bi piece-valid? ;