change-cell ( board location quot -- board )

Vocabulary

gamelib.board

Inputs

board	an object
location	an object
quot	an object

Outputs

board

an object

Definition

USING: accessors sequences ;

IN: gamelib.board

:: change-cell ( board location quot -- board )
    location first2 :> ( x y ) board cells>> :> cells x y cells
    nth quot change-nth board ; inline