same-day-of-year? ( ts1 ts2 -- ? )

Vocabulary

calendar

Inputs

ts1	an object
ts2	an object

Outputs

?

an object

Definition

USING: accessors combinators.short-circuit kernel ;

IN: calendar

: same-day-of-year? ( ts1 ts2 -- ? )
    { [ [ month>> ] same? ] [ [ day>> ] same? ] } 2&& ;