+year ( timestamp x -- timestamp )

Vocabulary

calendar.private

Inputs

timestamp	an object
x	an object

Outputs

timestamp

an object

Definition

IN: calendar.private

GENERIC: +year ( timestamp x -- timestamp )

Methods

USING: accessors calendar.private kernel math ;

M: integer +year [ + ] curry change-year adjust-leap-year ;


USING: calendar calendar.private kernel math ;

M: real +year
    float>whole-part swapd days-per-year * +day swap +year ;