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

paths
John Benediktsson 2018-03-13 11:57:40 -07:00
parent 1bffdff33a
commit 5e18e609b3
3 changed files with 2 additions and 4 deletions

View File

@ -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

View File

@ -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

View File

@ -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