(time+) ( timestamp duration -- timestamp )

Vocabulary

calendar.private

Inputs

timestamp	an object
duration	an object

Outputs

timestamp

an object

Definition

USING: accessors combinators ;

IN: calendar.private

: (time+) ( timestamp duration -- timestamp )
    {
        [ second>> +second ]
        [ minute>> +minute ]
        [ hour>> +hour ]
        [ day>> +day ]
        [ month>> +month ]
        [ year>> +year ]
    } cleave ; inline