from-utc ( timestamp tzinfo -- timestamp' )

Vocabulary

tzinfo

Inputs

timestamp	an object
tzinfo	an object

Outputs

timestamp'

an object

Definition

USING: accessors calendar kernel tzinfo.private ;

IN: tzinfo

: from-utc ( timestamp tzinfo -- timestamp' )
    [ drop instant >>gmt-offset ]
    [ find-transition local-time>> gmt-offset>> ] 2bi
    convert-timezone ;