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 ] compose ] [ [ f ] compose ] bi* recover ] dip
    [ [ drop ] ] dip compose when ; inline