add-row ( board -- board )


Vocabulary
tetris.board

Inputs
boardan object


Outputs
boardan object


Definition
USING: accessors arrays kernel sequences ;

IN: tetris.board

: add-row ( board -- board )
dup rows>> over width>> f <array> prefix >>rows ;