easter ( obj -- obj' )

Vocabulary

calendar

Inputs

obj

an object

Outputs

obj'

an object

Definition

IN: calendar

GENERIC: easter ( obj -- obj' )

Methods

USING: calendar kernel math ;

M: integer easter dup easter-month-day <date> ;


USING: accessors calendar kernel ;

M: timestamp easter
    clone dup year>> easter-month-day swapd >>day swap >>month ;