From 268dfecb0ba77742f0243122c95f97356adc8041 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 13 Mar 2018 10:38:33 -0700
Subject: [PATCH] cocoa.messages: fix for ".cxx_destruct" selector name.

---
 basis/cocoa/messages/messages.factor | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/basis/cocoa/messages/messages.factor b/basis/cocoa/messages/messages.factor
index 9e61f6077e..670aed8141 100644
--- 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? [