next-snake-loc-from-dir ( loc from-dir snake-part -- new-loc new-from-dir )

Vocabulary

snake-game.ui

Inputs

loc	an object
from-dir	an object
snake-part	an object

Outputs

new-loc	an object
new-from-dir	an object

Definition

USING: accessors kernel snake-game.game ;

IN: snake-game.ui

: next-snake-loc-from-dir
    ( loc from-dir snake-part -- new-loc new-from-dir )
    nip dir>> [ move-loc ] keep ;