next-retry ( retries -- elt/obj/index nanos/timestamp/0 ? )


Vocabulary
retries

Inputs
retriesan object


Outputs
elt/obj/indexan object
nanos/timestamp/0an object
?an object


Definition
USING: accessors combinators kernel math ;

IN: retries

: next-retry
( retries -- elt/obj/index nanos/timestamp/0 ? )
{
[ retry-obj ]
[ [ ] [ time-strategy>> ] bi retry-sleep-time ]
[ pick [ [ 1 + ] change-count drop ] [ drop ] if swap ]
} cleave ;