From fe952b2f8e4f595af6f838756e6f35993677b568 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 29 Mar 2013 14:45:17 -0700
Subject: [PATCH] cocoa.messages: add super-sender for completeness.

---
 basis/cocoa/messages/messages.factor | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/basis/cocoa/messages/messages.factor b/basis/cocoa/messages/messages.factor
index 8cc22b0fe8..f6c9eb8a05 100644
--- a/basis/cocoa/messages/messages.factor
+++ b/basis/cocoa/messages/messages.factor
@@ -61,10 +61,15 @@ ERROR: no-objc-method name ;
 : lookup-method ( selector -- method )
     dup ?lookup-method [ ] [ no-objc-method ] ?if ;
 
+: (selector/sender) ( selector super? -- alien word )
+    [ [ <selector> selector ] [ lookup-method ] bi ]
+    [ super-message-senders message-senders ? get at ] bi* ; inline
+
 : selector/sender ( selector -- alien word )
-    dup lookup-method
-    [ <selector> selector ]
-    [ message-senders get at ] bi* ;
+    f (selector/sender) ; inline
+
+: selector/super-sender ( selector -- alien word )
+    t (selector/sender) ; inline
 
 MEMO: make-prepare-send ( selector method super? -- quot )
     [