grow-snake ( snake dir -- snake )

Vocabulary

snake-game.game

Inputs

snake	an object
dir	an object

Outputs

snake

an object

Definition

USING: accessors kernel sequences ;

IN: snake-game.game

: grow-snake ( snake dir -- snake )
    opposite-dir :head <snake-part> prefix
    dup second :body >>type drop ;