zone-day ( timestamp text -- timestamp' )

Vocabulary

zoneinfo

Inputs

timestamp	an object
text	an object

Outputs

timestamp'

an object

Definition

USING: kernel sequences ;

IN: zoneinfo

: zone-day ( timestamp text -- timestamp' )
    dup "last" head?
    [ last-day-string ] [ comparison-day-string ] if ;