cococa.messages: Rename selector.
parent
031543fed3
commit
8012f60829
|
@ -37,9 +37,9 @@ super-message-senders [ H{ } clone ] initialize
|
||||||
[ ] [ object_getClass class_getSuperclass ] bi
|
[ ] [ object_getClass class_getSuperclass ] bi
|
||||||
objc-super <struct-boa> ;
|
objc-super <struct-boa> ;
|
||||||
|
|
||||||
TUPLE: selector name object ;
|
TUPLE: selector-tuple name object ;
|
||||||
|
|
||||||
MEMO: <selector> ( name -- sel ) f \ selector boa ;
|
MEMO: <selector> ( name -- sel ) f \ selector-tuple boa ;
|
||||||
|
|
||||||
: selector ( selector -- alien )
|
: selector ( selector -- alien )
|
||||||
dup object>> expired? [
|
dup object>> expired? [
|
||||||
|
|
Loading…
Reference in New Issue