retry ( n quot -- )

Vocabulary

mason.common

Inputs

n	an object
quot	an object

Outputs

None

Definition

USING: continuations kernel sequences ;

IN: mason.common

: retry ( n quot -- )
    [ <iota> ] dip '[ drop @ f ] attempt-all drop ; inline