top-up-rows ( board -- )

Vocabulary

tetris.board

Inputs

board

an object

Outputs

None

Definition

USING: accessors kernel sequences ;

IN: tetris.board

: top-up-rows ( board -- )
    dup height>> over rows>> length =
    [ drop ] [ add-row top-up-rows ] if ;