(time-) ( timestamp timestamp -- n )


Vocabulary
calendar

Definition
USING: kernel math ;

IN: calendar

: (time-) ( timestamp timestamp -- n )
[ >gmt ] bi@
[ [ >date< julian-day-number ] bi@ - 86400 * ] 2keep
[ >time< [ [ 3600 * ] [ 60 * ] bi* ] dip + + ] bi@ - + ;