hms>duration ( str -- duration )

Vocabulary

zoneinfo

Inputs

str

an object

Outputs

duration

an object

Definition

USING: calendar kernel math.parser sequences splitting ;

IN: zoneinfo

: hms>duration ( str -- duration )
    ":" split 3 "0" pad-tail [ string>number ] map first3
    [ instant ] 3dip set-time ;