(time-) ( timestamp timestamp -- n )


Vocabulary
calendar

Inputs and outputs
timestampan object
nan object


Definition


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