<counted-retries> ( time-strategy max-retries -- retries )

Vocabulary

retries

Inputs

time-strategy	an object
max-retries	an object

Outputs

retries

an object

Definition

USING: accessors kernel ;

IN: retries

: <counted-retries> ( time-strategy max-retries -- retries )
    counted-retries new-retries swap >>max-retries
    swap >>time-strategy ; inline