find-cell-nopos ( board quot -- cell )

Vocabulary

gamelib.board

Inputs

board	an object
quot	an object

Outputs

cell

an object

Definition

USING: accessors kernel sequences ;

IN: gamelib.board

:: find-cell-nopos ( board quot -- cell )
    board cells>> [ quot find swap drop ] map-find drop ; inline