+day ( timestamp x -- timestamp )

Vocabulary

calendar.private

Inputs

timestamp	an object
x	an object

Outputs

timestamp

an object

Definition

IN: calendar.private

GENERIC: +day ( timestamp x -- timestamp )

Methods

USING: calendar calendar.private kernel math ;

M: integer +day
    [
        over >date< julian-day-number +
        julian-day-number>date set-date
    ] unless-zero ;


USING: calendar.private kernel math ;

M: real +day float>whole-part swapd 24 * +hour swap +day ;