add-block ( tetris block -- )


Vocabulary
tetris.game

Inputs
tetrisan object
blockan object


Outputs
None

Definition
USING: accessors kernel tetris.board ;

IN: tetris.game

: add-block ( tetris block -- )
over [ board>> ] 2dip
current-piece tetromino>> color>> set-block ;