find-cell ( board quot -- seq cell )

Vocabulary

gamelib.board

Inputs

board	an object
quot	an object

Outputs

seq	an object
cell	an object

Definition

USING: kernel sequences ;

IN: gamelib.board

:: find-cell ( board quot -- seq cell )
    board quot find-row swap :> y
    [ quot find drop ] find swap :> x { x y } swap ; inline