sender-stub ( signature function -- word )

Vocabulary

cocoa.messages

Inputs

signature	an object
function	an object

Outputs

word

an object

Definition

USING: classes.struct kernel sequences stack-checker words ;

IN: cocoa.messages

: sender-stub ( signature function -- word )
    [ [ sender-stub-name f <word> dup ] keep ] dip
    over first large-struct? [ "_stret" append ] when
    make-sender dup infer define-declared ;