+month ( timestamp x -- timestamp )

Vocabulary

calendar.private

Inputs

timestamp	an object
x	an object

Outputs

timestamp

an object

Definition

IN: calendar.private

GENERIC: +month ( timestamp x -- timestamp )

Methods

USING: accessors calendar calendar.private kernel math
math.order ;

M: integer +month
    [
        over month>> + months/years
        [ >>month dup days-in-month [ min ] curry change-day ]
        dip +year
    ] unless-zero ;


USING: calendar calendar.private kernel math ;

M: real +month
    float>whole-part swapd average-month * +day swap +month ;