objc-class-case ( alist -- quot )

Vocabulary

cocoa.plists.private

Inputs

alist

an object

Outputs

quot

an object

Definition

USING: alien.c-types arrays cocoa.messages combinators kernel
quotations sequences ;

IN: cocoa.plists.private

MACRO: objc-class-case ( alist -- quot )
    [
        dup callable? [
            first2 [
                [ [ dup ] ] dip [
                    execute
                    { char ~array~ } "isKindOfClass:" send
                    c-bool>
                ] curry compose
            ] dip 2array
        ] unless
    ] map [ cond ] curry ;