cocoa.messages: add super-sender for completeness.

db4
John Benediktsson 2013-03-29 14:45:17 -07:00
parent 71558515cb
commit fe952b2f8e
1 changed files with 8 additions and 3 deletions
basis/cocoa/messages

View File

@ -61,10 +61,15 @@ ERROR: no-objc-method name ;
: lookup-method ( selector -- method )
dup ?lookup-method [ ] [ no-objc-method ] ?if ;
: (selector/sender) ( selector super? -- alien word )
[ [ <selector> selector ] [ lookup-method ] bi ]
[ super-message-senders message-senders ? get at ] bi* ; inline
: selector/sender ( selector -- alien word )
dup lookup-method
[ <selector> selector ]
[ message-senders get at ] bi* ;
f (selector/sender) ; inline
: selector/super-sender ( selector -- alien word )
t (selector/sender) ; inline
MEMO: make-prepare-send ( selector method super? -- quot )
[