timestamp>year-dates-gmt ( timestamp -- seq )

Vocabulary

calendar

Inputs

timestamp

an object

Outputs

seq

an object

Definition

USING: accessors kernel math ranges sequences ;

IN: calendar

: timestamp>year-dates-gmt ( timestamp -- seq )
    [ year>> 1 1 julian-day-number ] [ days-in-year ] bi
    [ drop ] [ + ] 2bi [a..b)
    [ julian-day-number>date <date-gmt> ] map ;