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