snake-will-eat-itself? ( snake-game -- ? )


Vocabulary
snake-game.game

Inputs
snake-gamean object


Outputs
?an object


Definition
USING: accessors kernel sequences ;

IN: snake-game.game

: snake-will-eat-itself? ( snake-game -- ? )
[ snake>> ] [ snake-loc>> ] [ snake-dir>> ] tri move-loc
[ snake-occupied-locs rest ] keep swap member? ;