update-snake-shape ( snake-game growing? -- snake-game )


Vocabulary
snake-game.game

Inputs
snake-gamean object
growing?an object


Outputs
snake-gamean object


Definition
USING: accessors kernel ;

IN: snake-game.game

: update-snake-shape ( snake-game growing? -- snake-game )
[ dup snake-dir>> ] dip
[ [ grow-snake ] [ move-snake ] if ] 2curry change-snake ;