+minute ( timestamp x -- timestamp )

Vocabulary

calendar.private

Inputs

timestamp	an object
x	an object

Outputs

timestamp

an object

Definition

IN: calendar.private

GENERIC: +minute ( timestamp x -- timestamp )

Methods

USING: accessors calendar.private kernel math ;

M: integer +minute
    [ over minute>> + minutes/hours [ >>minute ] dip +hour ]
    unless-zero ;


USING: calendar.private kernel math ;

M: real +minute
    float>whole-part swapd 60 * +second swap +minute ;