From 919f544d6420bbf3bc7a7485fee94dbcf20ff9fb Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 23 Mar 2009 19:25:17 -0500
Subject: [PATCH] cocoa.messages: cleanup
---
basis/cocoa/messages/messages.factor | 12 +++++-------
1 file changed, 5 insertions(+), 7 deletions(-)
diff --git a/basis/cocoa/messages/messages.factor b/basis/cocoa/messages/messages.factor
index f71b9f3f56..65bb2c02ef 100644
--- a/basis/cocoa/messages/messages.factor
+++ b/basis/cocoa/messages/messages.factor
@@ -22,15 +22,13 @@ SYMBOL: super-message-senders
message-senders [ H{ } clone ] initialize
super-message-senders [ H{ } clone ] initialize
-: cache-stub ( method function hash -- )
- [
- over get [ 2drop ] [ over [ sender-stub ] dip set ] if
- ] bind ;
+: cache-stub ( method assoc function -- )
+ '[ _ sender-stub ] cache drop ;
: cache-stubs ( method -- )
- dup
- "objc_msgSendSuper" super-message-senders get cache-stub
- "objc_msgSend" message-senders get cache-stub ;
+ [ super-message-senders get "objc_msgSendSuper" cache-stub ]
+ [ message-senders get "objc_msgSend" cache-stub ]
+ bi ;
: <super> ( receiver -- super )
"objc-super" <c-object> [