cocoa: change ?-> to always cache stubs in syntax word.

diff --git a/basis/cocoa/cocoa.factor b/basis/cocoa/cocoa.factor
index e92f0f9068aa621aec6433c4746276756cd85ef4..f90e6036ccf2c9d3e47fec0434ce6a8f2b9e7e8c 100644 (file)
--- a/basis/cocoa/cocoa.factor
+++ b/basis/cocoa/cocoa.factor
@@ -14,7 +14,7 @@ SYMBOL: sent-messages
 
 SYNTAX: -> scan-token dup remember-send suffix! \ send suffix! ;
 
-SYNTAX: ?-> scan-token dup remember-send suffix! \ ?send suffix! ;
+SYNTAX: ?-> dup last cache-stubs scan-token dup remember-send suffix! \ ?send suffix! ;
 
 SYNTAX: SEL:
     scan-token

diff --git a/basis/cocoa/messages/messages.factor b/basis/cocoa/messages/messages.factor
index 670aed81414e61003584d6aa80743f7c31e8aeb0..8e917975c303c0d12a3d9edd5b445aede4b0f789 100644 (file)
--- a/basis/cocoa/messages/messages.factor
+++ b/basis/cocoa/messages/messages.factor
@@ -94,7 +94,7 @@ MACRO:: (?send) ( effect selector super? -- quot )
     selector dup ?lookup-method effect or super?
     [ make-prepare-send ] 2keep
     super-message-senders message-senders ? get at
-    [ 1quotation append ] [ effect selector sender-stub 1quotation append ] if* ;
+    1quotation append ;
 
 : ?send ( receiver args... selector effect -- return... ) f (?send) ; inline
 

diff --git a/basis/cocoa/touchbar/touchbar.factor b/basis/cocoa/touchbar/touchbar.factor
index 8f4a70420ea28508919613c1dcc30495e77ad57d..e040840b9320289355e7e7d91094c9b9e32f909b 100644 (file)
--- a/basis/cocoa/touchbar/touchbar.factor
+++ b/basis/cocoa/touchbar/touchbar.factor
@@ -12,8 +12,6 @@ IN: cocoa.touchbar
         [ nip ]
     } 2cleave ;
 
-{ id { id SEL id id SEL } } cache-stubs
-
 :: make-NSTouchBar-button ( self identifier label-string action-string -- button )
     NSCustomTouchBarItem -> alloc
         identifier <CFString> { id { id SEL id } } ?-> initWithIdentifier: :> item