preserve-gmt-offset ( timestamp quot -- timestamp' )

Vocabulary

calendar.private

Inputs

timestamp	an object
quot	an object

Outputs

timestamp'

an object

Definition

USING: accessors calendar kernel ;

IN: calendar.private

: preserve-gmt-offset ( timestamp quot -- timestamp' )
    [ [ >utc ] ] dip compose
    [ gmt-offset>> convert-timezone ] bi ; inline