cond* ( assoc -- )

Vocabulary

combinators.extras

Inputs

assoc

an object

Outputs

None

Definition

USING: combinators kernel quotations sequences ;

IN: combinators.extras

: cond* ( assoc -- )
    [ dup callable? [ drop t ] [ first call ] if ] map-find
    [ dup callable? [ nip call ] [ second call ] if ]
    [ no-cond ] if* ;