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

Revert "remove old accessors from cocoa" 

This reverts commit 4f8bc90cca.
db4
Doug Coleman 2008-08-29 10:14:34 -05:00
parent 524bce2dd2
commit e0810c727d
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: accessors alien alien.c-types alien.strings USING: 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 object>> expired? [ dup selector-object expired? [
dup name>> sel_registerName dup selector-name sel_registerName
[ >>object drop ] keep dup rot set-selector-object
] [ ] [
object>> selector-object
] if ; ] if ;
SYMBOL: objc-methods SYMBOL: objc-methods