retry ( quot: ( -- ? ) n -- )

Vocabulary

io.files.unique.private

Inputs

quot	a quotation with stack effect ( -- ? )
n	an object

Outputs

None

Definition

USING: continuations kernel sequences ;

IN: io.files.unique.private

: retry ( quot: ( -- ? ) n -- )
    <iota> swap [ drop ] prepose attempt-all ; inline