parse-recent-time ( str -- str' )

Vocabulary

metar.private

Inputs

str

an object

Outputs

str'

an object

Definition

USING: kernel math sequences ;

IN: metar.private

: parse-recent-time ( str -- str' )
    dup length 2 >
    [ 2 cut ":" glue ] [ " minutes past the hour" append ] if ;