Handbook
Glossary
first-day-of-millennium ( object -- timestamp' )
Vocabulary
calendar
Inputs
object
an
object
Outputs
timestamp'
an
object
Definition
USING:
accessors
kernel
math
;
IN:
calendar
:
first-day-of-millennium
( object -- timestamp' )
first-day-of-year
[
dup
1000
mod
-
]
change-year
;