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

cocoa.messages: fix for ".cxx_destruct" selector name.

paths
John Benediktsson 2018-03-13 10:38:33 -07:00
parent 365584a644
commit 268dfecb0b
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -44,8 +44,11 @@ super-message-senders [ H{ } clone ] initialize
TUPLE: selector-tuple name object ; TUPLE: selector-tuple name object ;
: selector-name ( name -- name' )
CHAR: . over index [ 0 > [ "." split1 nip ] when ] when* ;
MEMO: <selector> ( name -- sel ) MEMO: <selector> ( name -- sel )
"." split1 nip f selector-tuple boa ; selector-name f selector-tuple boa ;
: selector ( selector -- alien ) : selector ( selector -- alien )
dup object>> expired? [ dup object>> expired? [