+hour ( timestamp x -- timestamp )

Vocabulary

calendar.private

Inputs

timestamp	an object
x	an object

Outputs

timestamp

an object

Definition

IN: calendar.private

GENERIC: +hour ( timestamp x -- timestamp )

Methods

USING: accessors calendar.private kernel math ;

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


USING: calendar.private kernel math ;

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