add-to-cell ( board location obj -- board )

Vocabulary

gamelib.board

Inputs

board	an object
location	an object
obj	an object

Outputs

board

an object

Definition

USING: accessors sequences ;

IN: gamelib.board

:: add-to-cell ( board location obj -- board )
    board cells>> :> cells board location get-cell
    :> old-cell old-cell { obj } append
    :> new-cell board location new-cell set-cell ;