last-day-of-millennium ( object -- timestamp' )

Vocabulary

calendar

Inputs

object

an object

Outputs

timestamp'

an object

Definition

USING: accessors kernel math ;

IN: calendar

: last-day-of-millennium ( object -- timestamp' )
    last-day-of-year [ dup 1000 mod - 999 + ] change-year ;