key-dir ( key -- dir )


Vocabulary
snake-game.ui

Inputs
keyan object


Outputs
diran object


Definition


: key-dir ( key -- dir )
H{
{ "UP" :up }
{ "RIGHT" :right }
{ "DOWN" :down }
{ "LEFT" :left }
} at ;