steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

cocoa.messages: cleanup

db4
Slava Pestov 2009-03-23 19:25:17 -05:00
parent 6f4e5b4bd9
commit 919f544d64
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
basis/cocoa/messages/messages.factor
View File

@ -22,15 +22,13 @@ SYMBOL: super-message-senders
message-senders [ H{ } clone ] initialize message-senders [ H{ } clone ] initialize
super-message-senders [ H{ } clone ] initialize super-message-senders [ H{ } clone ] initialize
: cache-stub ( method function hash -- ) : cache-stub ( method assoc function -- )
[ '[ _ sender-stub ] cache drop ;
over get [ 2drop ] [ over [ sender-stub ] dip set ] if
] bind ;
: cache-stubs ( method -- ) : cache-stubs ( method -- )
dup [ super-message-senders get "objc_msgSendSuper" cache-stub ]
"objc_msgSendSuper" super-message-senders get cache-stub [ message-senders get "objc_msgSend" cache-stub ]
"objc_msgSend" message-senders get cache-stub ; bi ;
: <super> ( receiver -- super ) : <super> ( receiver -- super )
"objc-super" <c-object> [ "objc-super" <c-object> [