From 42fd891cbb2e79a171923b21dffb54d0bf930cc0 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Fri, 31 Oct 2014 16:52:40 -0700 Subject: [PATCH] cocoa: switch back to an assoc, used by tools.deploy.shaker.strip-cocoa. --- basis/cocoa/cocoa.factor | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/basis/cocoa/cocoa.factor b/basis/cocoa/cocoa.factor index c4ced31678..58d7bb133a 100644 --- a/basis/cocoa/cocoa.factor +++ b/basis/cocoa/cocoa.factor @@ -1,16 +1,17 @@ ! Copyright (C) 2006, 2009 Slava Pestov ! See http://factorcode.org/license.txt for BSD license. 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 ; IN: cocoa SYMBOL: sent-messages -sent-messages [ HS{ } clone ] initialize +: (remember-send) ( selector variable -- ) + [ dupd ?set-at ] change-global ; : remember-send ( selector -- ) - sent-messages get-global adjoin ; + sent-messages (remember-send) ; SYNTAX: -> scan-token dup remember-send suffix! \ send suffix! ; @@ -21,10 +22,8 @@ SYNTAX: SEL: SYMBOL: super-sent-messages -super-sent-messages [ HS{ } clone ] initialize - : 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! ;