same-month? ( ts1 ts2 -- ? )

Vocabulary

calendar

Inputs

ts1	an object
ts2	an object

Outputs

?

an object

Definition

USING: accessors combinators.short-circuit kernel ;

IN: calendar

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