recover-fail ( try fail -- )

Vocabulary

inverse

Inputs

try	an object
fail	an object

Outputs

None

Definition

USING: continuations kernel ;

IN: inverse

: recover-fail ( try fail -- )
    [ drop call ]
    [ nipd dup fail? [ drop call ] [ nip throw ] if ] recover ;
    inline