<snake-game> ( -- snake-game )


Vocabulary
snake-game.game

Inputs
None

Outputs
snake-gamean object


Definition
USING: accessors kernel ;

IN: snake-game.game

: <snake-game> ( -- snake-game )
snake-game new <snake> >>snake { 5 4 } clone >>snake-loc
:right >>snake-dir { 1 1 } clone >>food-loc ;