rule>timestamp-rest ( timestamp zone -- from )

Vocabulary

zoneinfo

Inputs

timestamp	an object
zone	an object

Outputs

from

an object

Definition

USING: accessors calendar.english combinators kernel math ;

IN: zoneinfo

: rule>timestamp-rest ( timestamp zone -- from )
    {
        [
            over fp-infinity?
            [ drop ] [ in>> month-abbreviation-index >>month ]
            if
        ]
        [ over fp-infinity? [ drop ] [ on>> zone-day ] if ]
        [
            over fp-infinity?
            [ drop ] [ at-time>> zone-time ] if
        ]
    } cleave ;