parse-direction ( str -- str' )

Vocabulary

metar.private

Inputs

str

an object

Outputs

str'

an object

Definition

USING: formatting kernel ;

IN: metar.private

: parse-direction ( str -- str' )
    dup "VRB" =
    [ drop "variable" ] [ parse-compass "from %s" sprintf ] if ;