move-cells ( board start dest -- board )

Vocabulary

gamelib.board

Inputs

board	an object
start	an object
dest	an object

Outputs

board

an object

Definition

USING: sequences ;

IN: gamelib.board

:: move-cells ( board start dest -- board )
    board start first get-cell :> cell board start
    [ delete-cell ] each dest cell set-cells ;