board@block ( board block -- n row )


Vocabulary
tetris.board

Inputs
boardan object
blockan object


Outputs
nan object
rowan object


Definition
USING: accessors kernel sequences ;

IN: tetris.board

: board@block ( board block -- n row )
[ second swap rows>> nth ] keep first swap ;