<timestamp-range> ( from to step -- timestamp-range )

Vocabulary

calendar.ranges

Inputs

from	an object
to	an object
step	an object

Outputs

timestamp-range

an object

Definition

USING: calendar kernel math math.order ranges.private ;

IN: calendar.ranges

: <timestamp-range> ( from to step -- timestamp-range )
    [ dup duration? [ over time+ ] when over time- ] dip [
        [ duration>seconds ] bi@ sign/mod 0 < [ 1 + ] unless
        0 max
    ] keep timestamp-range boa ;