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

remove old accessors from cocoa

db4
Doug Coleman 2008-08-29 00:52:00 -05:00
parent 4272938b63
commit 4f8bc90cca
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,6 +1,6 @@
! Copyright (C) 2006, 2008 Slava Pestov. ! Copyright (C) 2006, 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: alien alien.c-types alien.strings USING: accessors alien alien.c-types alien.strings
arrays assocs combinators compiler kernel arrays assocs combinators compiler kernel
math namespaces parser prettyprint prettyprint.sections math namespaces parser prettyprint prettyprint.sections
quotations sequences strings words cocoa.runtime io macros quotations sequences strings words cocoa.runtime io macros
@ -46,11 +46,11 @@ TUPLE: selector name object ;
MEMO: <selector> ( name -- sel ) f \ selector boa ; MEMO: <selector> ( name -- sel ) f \ selector boa ;
: selector ( selector -- alien ) : selector ( selector -- alien )
dup selector-object expired? [ dup object>> expired? [
dup selector-name sel_registerName dup name>> sel_registerName
dup rot set-selector-object [ >>object drop ] keep
] [ ] [
selector-object object>>
] if ; ] if ;
SYMBOL: objc-methods SYMBOL: objc-methods