make-retryable ( obj -- obj' )

Vocabulary

db.queries

Inputs

obj

an object

Outputs

obj'

an object

Definition

USING: accessors kernel sequences ;

IN: db.queries

: make-retryable ( obj -- obj' )
    dup sequence?
    [ [ make-retryable ] map ] [ retryable >>type 10 >>retries ]
    if ;