Handbook
Glossary
year< ( timestamp quot -- timestamp' )
Vocabulary
calendar
Inputs
timestamp
an
object
quot
an
object
Outputs
timestamp'
an
object
Definition
USING:
kernel
math.order
;
IN:
calendar
:
year<
( timestamp quot -- timestamp' )
over
clone
[
call
dup
]
dip
after=?
[
-1
years
time+
]
when
;
inline