>language-code ( name/code -- abbrev )

Vocabulary

itunes

Inputs

name/code

an object

Outputs

abbrev

an object

Definition

USING: accessors assocs kernel ;

IN: itunes

: >language-code ( name/code -- abbrev )
    apple-languages from>> ?key
    [ ] [ apple-languages to>> ?at drop ] if ;