retry ( n quot -- )


Vocabulary
mason.common

Inputs
nan object
quotan object


Outputs
None

Definition
USING: continuations kernel sequences ;

IN: mason.common

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