From b5621a8936bda3f8094c2fb0ef98165a832007f8 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Wed, 3 Oct 2007 17:34:59 -0400
Subject: [PATCH] extra/cocoa no longer depends on combinators.lib

---
 extra/cocoa/messages/messages.factor | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/extra/cocoa/messages/messages.factor b/extra/cocoa/messages/messages.factor
index 5b61f39384..c1543868e1 100644
--- a/extra/cocoa/messages/messages.factor
+++ b/extra/cocoa/messages/messages.factor
@@ -3,8 +3,7 @@
 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
-combinators.lib ;
+quotations sequences strings words cocoa.runtime io macros ;
 IN: cocoa.messages
 
 : make-sender ( method function -- quot )
@@ -70,12 +69,17 @@ H{ } clone objc-methods set-global
     dup objc-methods get at
     [ ] [ "No such method: " swap append throw ] ?if ;
 
+: make-dip ( quot n -- quot' )
+    dup
+    \ >r <repetition> >quotation -rot
+    \ r> <repetition> >quotation 3append ;
+
 : make-prepare-send ( selector method super? -- quot )
     [
         [ \ <super> , ] when
         swap cache-selector , \ selector ,
     ] [ ] make
-    swap second length 2 - [ ndip ] 2curry ;
+    swap second length 2 - make-dip ;
 
 MACRO: (send) ( selector super? -- quot )
     [