cocoa.messages: add super-sender for completeness.

diff --git a/basis/cocoa/messages/messages.factor b/basis/cocoa/messages/messages.factor
index 8cc22b0fe8059df97c62e39f1e1e2cf2e3382bee..f6c9eb8a058e579c130e0a06cedf6798c487635d 100644 (file)
--- 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 )
     [