cocoa.messages: some support for runtime message sending.

diff --git a/basis/cocoa/messages/messages.factor b/basis/cocoa/messages/messages.factor
index f1e2402e848f8904913df45c1c1c130e89934c65..c093d54cc053a72f65b2bea65bd8178bdf315cac 100644 (file)
--- a/basis/cocoa/messages/messages.factor
+++ b/basis/cocoa/messages/messages.factor
@@ -55,8 +55,17 @@ objc-methods [ H{ } clone ] initialize
 
 ERROR: no-objc-method name ;
 
+: ?lookup-method ( selector -- method/f )
+    objc-methods get at ;
+
 : lookup-method ( selector -- method )
-    dup objc-methods get at [ ] [ no-objc-method ] ?if ;
+    dup ?lookup-method [ ] [ no-objc-method ] ?if ;
+
+: selector/sender ( selector method -- alien word )
+    [ <selector> selector ] [ message-senders get at ] bi* ;
+
+: when-method ( receiver selector quot: ( receiver selector method -- ) -- )
+    [ dup ?lookup-method ] dip [ selector/sender ] prepose [ 2drop ] if* ; inline
 
 MEMO: make-prepare-send ( selector method super? -- quot )
     [