hm>duration ( str -- duration )

Vocabulary

zoneinfo

Inputs

str

an object

Outputs

duration

an object

Definition

USING: calendar kernel math.parser splitting ;

IN: zoneinfo

: hm>duration ( str -- duration )
    ":" split1 "0" or [ string>number ] bi@ [ instant ] 2dip
    0 set-time ;