swap-cells ( board loc1 loc2 -- board )


Vocabulary
gamelib.board

Inputs
boardan object
loc1an object
loc2an object


Outputs
boardan object


Definition
IN: gamelib.board

:: swap-cells ( board loc1 loc2 -- board )
board loc1 get-cell :> cell1 board loc2 get-cell
:> cell2 board loc2 cell1 set-cell loc1 cell2 set-cell ;