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

2018-03-13 10:38:33 -07:00 · 2018-03-13 10:38:33 -07:00 · 268dfecb0b
parent 365584a644
commit 268dfecb0b
1 changed files with 4 additions and 1 deletions
--- a/basis/cocoa/messages/messages.factor
+++ b/basis/cocoa/messages/messages.factor
@ -44,8 +44,11 @@ super-message-senders [ H{ } clone ] initialize

 TUPLE: selector-tuple name object ;

+: selector-name ( name -- name' )
+    CHAR: . over index [ 0 > [ "." split1 nip ] when ] when* ;
+
 MEMO: <selector> ( name -- sel )
-    "." split1 nip f selector-tuple boa ;
+    selector-name f selector-tuple boa ;

 : selector ( selector -- alien )
    dup object>> expired? [