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 ] curry
        [ recover-else ] 3curry
    ] if ;