delete-from-cell ( board location obj -- board )

Vocabulary

gamelib.board

Inputs

board	an object
location	an object
obj	an object

Outputs

board

an object

Definition

USING: kernel sequences ;

IN: gamelib.board

:: delete-from-cell ( board location obj -- board )
    board location get-cell :> cell cell [ obj = ] find drop
    :> obj-index obj-index [
        obj-index cell remove-nth
        :> new-cell board location new-cell set-cell
    ] [ board ] if ;