with-retries ( retries quot -- result )

Vocabulary

retries

Inputs

retries	an object
quot	an object

Outputs

result

an object

Definition

USING: accessors arrays calendar continuations kernel math
namespaces sequences threads ;

IN: retries

: with-retries ( retries quot -- result )
    [ current-retries ] dip dup '[
        f [
            drop current-retries get next-retry [
                [ sleep ] unless-zero _ [ f ] compose [
                    current-retries get count>> now 4array
                    current-retries get errors>> push f t
                ] recover
            ] [ current-retries get _ retries-failed ] if
        ] loop
    ] with-variable ; inline