+second ( timestamp x -- timestamp )

Vocabulary

calendar.private

Inputs

timestamp	an object
x	an object

Outputs

timestamp

an object

Definition

IN: calendar.private

GENERIC: +second ( timestamp x -- timestamp )

Methods

USING: accessors calendar.private kernel math ;

M: number +second
    [ over second>> + seconds/minutes [ >>second ] dip +minute ]
    unless-zero ;