same-year? ( ts1 ts2 -- ? )


Vocabulary
calendar

Inputs
ts1an object
ts2an object


Outputs
?an object


Definition
USING: accessors kernel ;

IN: calendar

: same-year? ( ts1 ts2 -- ? ) [ year>> ] bi@ = ; inline