(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@
-
+
;