recover-cond ( alist -- quot )

Vocabulary

mason.child

Inputs

alist

an object

Outputs

quot

an object

Definition

USING: combinators.short-circuit kernel quotations sequences ;

IN: mason.child

MACRO: recover-cond ( alist -- quot )
    dup { [ length 1 = ] [ first callable? ] } 1&&
    [ first ] [
        [ first first2 ] [ rest ] bi
        '[ _ _ [ _ recover-cond ] recover-else ]
    ] if ;