(time-) ( timestamp timestamp -- n )

Vocabulary

calendar.private

Inputs

timestamp	an object
timestamp	an object

Outputs

n

an object

Definition

USING: accessors calendar kernel math ;

IN: calendar.private

: (time-) ( timestamp timestamp -- n )
    [ [ >date< julian-day-number ] bi@ - 86400 * ]
    [ [ >time< [ 3600 * ] [ 60 * + ] [ + ] tri* ] bi@ - + ]
    [ [ gmt-offset>> duration>seconds ] bi@ swap - + ] 2tri ;