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

cocoa: switch back to an assoc, used by tools.deploy.shaker.strip-cocoa.

db4
John Benediktsson 2014-10-31 16:52:40 -07:00
parent 6d6303010f
commit 42fd891cbb
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
basis/cocoa/cocoa.factor
View File

@ -1,16 +1,17 @@
! Copyright (C) 2006, 2009 Slava Pestov ! Copyright (C) 2006, 2009 Slava Pestov
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: cocoa.messages compiler.units core-foundation.bundles USING: cocoa.messages compiler.units core-foundation.bundles
init io kernel lexer namespaces sequences sets vocabs ; hashtables init io kernel lexer namespaces sequences vocabs ;
FROM: cocoa.messages => selector ; FROM: cocoa.messages => selector ;
IN: cocoa IN: cocoa
SYMBOL: sent-messages SYMBOL: sent-messages
sent-messages [ HS{ } clone ] initialize : (remember-send) ( selector variable -- )
[ dupd ?set-at ] change-global ;
: remember-send ( selector -- ) : remember-send ( selector -- )
sent-messages get-global adjoin ; sent-messages (remember-send) ;
SYNTAX: -> scan-token dup remember-send suffix! \ send suffix! ; SYNTAX: -> scan-token dup remember-send suffix! \ send suffix! ;
@ -21,10 +22,8 @@ SYNTAX: SEL:
SYMBOL: super-sent-messages SYMBOL: super-sent-messages
super-sent-messages [ HS{ } clone ] initialize
: remember-super-send ( selector -- ) : remember-super-send ( selector -- )
super-sent-messages get-global adjoin ; super-sent-messages (remember-send) ;
SYNTAX: SUPER-> scan-token dup remember-super-send suffix! \ super-send suffix! ; SYNTAX: SUPER-> scan-token dup remember-super-send suffix! \ super-send suffix! ;