same-second? ( ts1 ts2 -- ? )

Vocabulary

calendar

Inputs

ts1	an object
ts2	an object

Outputs

?

an object

Definition

USING: accessors combinators.short-circuit kernel math.functions
;

IN: calendar

: same-second? ( ts1 ts2 -- ? )
    [ >gmt ] bi@
    { [ [ second>> floor ] bi@ = ] [ same-minute? ] } 2&& ;