+day ( timestamp x -- timestamp ) - Factor Documentation

Vocabulary
calendar.private

Definition

IN: calendar.private

GENERIC: +day ( timestamp x -- timestamp )

Methods

USING: accessors calendar calendar.private kernel math ;

M: integer +day
    [
        over >date< julian-day-number + julian-day-number>date
        [ >>year ] [ >>month ] [ >>day ] tri*
    ] unless-zero ;


USING: calendar.private kernel math ;

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