case-find ( obj assoc -- obj' )

Vocabulary

combinators

Inputs

obj	an object
assoc	an object

Outputs

obj'

an object

Definition

USING: accessors arrays kernel quotations sequences words ;

IN: combinators

: case-find ( obj assoc -- obj' )
    [
        dup array? [
            dupd first dup word?
            [ execute ] [ dup wrapper? [ wrapped>> ] when ] if =
        ] [ callable? ] if
    ] find nip ;