From e0810c727d753af47671dd03926a10f035054595 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Fri, 29 Aug 2008 10:14:34 -0500
Subject: [PATCH] Revert "remove old accessors from cocoa"

This reverts commit 4f8bc90ccaa0087bdcf5d777184aa52c665c17f5.
---
 basis/cocoa/messages/messages.factor | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/basis/cocoa/messages/messages.factor b/basis/cocoa/messages/messages.factor
index ea7280b5a6..94c5f05887 100755
--- a/basis/cocoa/messages/messages.factor
+++ b/basis/cocoa/messages/messages.factor
@@ -1,6 +1,6 @@
 ! Copyright (C) 2006, 2008 Slava Pestov.
 ! 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
 math namespaces parser prettyprint prettyprint.sections
 quotations sequences strings words cocoa.runtime io macros
@@ -46,11 +46,11 @@ TUPLE: selector name object ;
 MEMO: <selector> ( name -- sel ) f \ selector boa ;
 
 : selector ( selector -- alien )
-    dup object>> expired? [
-        dup name>> sel_registerName
-        [ >>object drop ] keep
+    dup selector-object expired? [
+        dup selector-name sel_registerName
+        dup rot set-selector-object
     ] [
-        object>>
+        selector-object
     ] if ;
 
 SYMBOL: objc-methods