same-minute? ( ts1 ts2 -- ? )

Vocabulary

calendar

Inputs

ts1	an object
ts2	an object

Outputs

?

an object

Definition

USING: accessors combinators.short-circuit kernel ;

IN: calendar

: same-minute? ( ts1 ts2 -- ? )
    [ >gmt ] bi@ {
        [ [ year>> ] same? ]
        [ [ month>> ] same? ]
        [ [ day>> ] same? ]
        [ [ hour>> ] same? ]
        [ [ minute>> ] same? ]
    } 2&& ;