same-week? ( ts1 ts2 -- ? )

Vocabulary

calendar

Inputs

ts1	an object
ts2	an object

Outputs

?

an object

Definition

USING: accessors arrays kernel ;

IN: calendar

: same-week? ( ts1 ts2 -- ? )
    [ [ year>> ] [ week-number ] bi 2array ] same? ;