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

Found another place to use MEMO: in extra/cocoa

release
Slava Pestov 2007-10-07 18:16:17 -04:00
parent 806e5d19d9
commit 554507cf00
1 changed files with 2 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
extra/cocoa/messages/messages.factor
View File

@ -43,7 +43,7 @@ super-message-senders global [ H{ } assoc-like ] change-at
TUPLE: selector name object ;
: <selector> ( name -- sel ) f \ selector construct-boa ;
MEMO: <selector> ( name -- sel ) f \ selector construct-boa ;
: selector ( selector -- alien )
dup selector-object expired? [
@ -53,13 +53,6 @@ TUPLE: selector name object ;
selector-object
] if ;
SYMBOL: selectors
selectors global [ H{ } assoc-like ] change-at
: cache-selector ( string -- selector )
selectors get-global [ <selector> ] cache ;
SYMBOL: objc-methods
objc-methods global [ H{ } assoc-like ] change-at
@ -76,7 +69,7 @@ objc-methods global [ H{ } assoc-like ] change-at
MEMO: make-prepare-send ( selector method super? -- quot )
[
[ \ <super> , ] when
swap cache-selector , \ selector ,
swap <selector> , \ selector ,
] [ ] make
swap second length 2 - make-dip ;