find-transition ( timestamp tzinfo -- transition )

Vocabulary

tzinfo.private

Inputs

timestamp	an object
tzinfo	an object

Outputs

transition

an object

Definition

USING: accessors calendar kernel math.order sequences ;

IN: tzinfo.private

: find-transition ( timestamp tzinfo -- transition )
    [ timestamp>unix-time ] [ transitions>> ] bi*
    [ [ seconds>> before? ] with find drop ]
    [ swap [ 1 [-] swap nth ] [ last ] if* ] bi ;