steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/cocoa/cocoa.factor
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: ?-> scan-token dup remember-send suffix! \ ?send suffix! ; SYNTAX: ?-> dup last cache-stubs scan-token dup remember-send suffix! \ ?send suffix! ;
SYNTAX: SEL: SYNTAX: SEL:
scan-token scan-token

2
basis/cocoa/messages/messages.factor
View File

@ -94,7 +94,7 @@ MACRO:: (?send) ( effect selector super? -- quot )
selector dup ?lookup-method effect or super? selector dup ?lookup-method effect or super?
[ make-prepare-send ] 2keep [ make-prepare-send ] 2keep
super-message-senders message-senders ? get at 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 : ?send ( receiver args... selector effect -- return... ) f (?send) ; inline

2
basis/cocoa/touchbar/touchbar.factor
View File

@ -12,8 +12,6 @@ IN: cocoa.touchbar
[ nip ] [ nip ]
} 2cleave ; } 2cleave ;
{ id { id SEL id id SEL } } cache-stubs
:: make-NSTouchBar-button ( self identifier label-string action-string -- button ) :: make-NSTouchBar-button ( self identifier label-string action-string -- button )
NSCustomTouchBarItem -> alloc NSCustomTouchBarItem -> alloc
identifier <CFString> { id { id SEL id } } ?-> initWithIdentifier: :> item identifier <CFString> { id { id SEL id } } ?-> initWithIdentifier: :> item