(rotate) ( inc tetris -- )


Vocabulary
tetris.game

Inputs
incan object
tetrisan object


Outputs
None

Definition
USING: kernel tetris.piece ;

IN: tetris.game

: (rotate) ( inc tetris -- )
dup can-rotate?
[ current-piece swap rotate-piece drop ] [ 2drop ] if ;