recover-else ( try catch else -- )

Vocabulary

mason.child

Inputs

try	an object
catch	an object
else	an object

Outputs

None

Definition

USING: continuations kernel ;

IN: mason.child

: recover-else ( try catch else -- )
    [ [ '[ @ f t ] ] [ '[ @ f ] ] bi* recover ] dip
    '[ drop @ ] when ; inline