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

cocoa: Update.

modern-harvey2
Doug Coleman 2018-03-23 17:59:10 -05:00
parent 25bf216bf4
commit 2c7a579ecd
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
basis/cocoa/cocoa.factor
View File

@ -11,17 +11,18 @@ sent-messages [ H{ } clone ] initialize
: remember-send ( selector -- ) : remember-send ( selector -- )
dup sent-messages get set-at ; dup sent-messages get set-at ;
SYNTAX: \send: scan-token unescape-token dup remember-send suffix! \ send suffix! ; SYNTAX: \send:
scan-token unescape-token dup remember-send
[ lookup-method suffix! ] [ suffix! ] bi \ send suffix! ;
SYNTAX: \?send: SYNTAX: \?send:
dup last cache-stubs dup last cache-stubs
scan-token unescape-token dup remember-send scan-token unescape-token dup remember-send
suffix! \ ?send suffix! ; suffix! \ send suffix! ;
SYNTAX: \selector: SYNTAX: \selector:
scan-token unescape-token scan-token unescape-token dup remember-send
[ remember-send ] <selector> suffix! \ cocoa.messages::selector suffix! ;
[ <selector> suffix! \ cocoa.messages::selector suffix! ] bi ;
SYMBOL: super-sent-messages SYMBOL: super-sent-messages
@ -32,7 +33,7 @@ super-sent-messages [ H{ } clone ] initialize
SYNTAX: \super: SYNTAX: \super:
scan-token unescape-token dup remember-super-send scan-token unescape-token dup remember-super-send
suffix! \ super-send suffix! ; [ lookup-method suffix! ] [ suffix! ] bi \ super-send suffix! ;
SYMBOL: frameworks SYMBOL: frameworks
frameworks [ V{ } clone ] initialize frameworks [ V{ } clone ] initialize