move-snake ( snake dir -- snake )


Vocabulary
snake-game.game

Inputs
snakean object
diran object


Outputs
snakean object


Definition
USING: accessors kernel sequences ;

IN: snake-game.game

: move-snake ( snake dir -- snake )
[ dup but-last [ dir>> ] map ] dip opposite-dir prefix
[ >>dir ] 2map ;