     \ >r <repetition> >quotation -rot
     \ r> <repetition> >quotation 3append ;
 
-: make-prepare-send ( selector method super? -- quot )
+MEMO: make-prepare-send ( selector method super? -- quot )
     [
         [ \ <super> , ] when
         swap cache-selector , \ selector ,

USING: alien alien.c-types alien.compiler
arrays assocs combinators compiler inference.transforms kernel
math namespaces parser prettyprint prettyprint.sections
quotations sequences strings words cocoa.runtime io macros ;
IN: cocoa.messages

: make-sender ( method function -- quot )

SYMBOL: message-senders
SYMBOL: super-message-senders

message-senders global [ H{ } assoc-like ] change-at
super-message-senders global [ H{ } assoc-like ] change-at

: cache-stub ( method function hash -- )
    [
