From cce0341e28dfaf0868a858fd8fa6712cf585f7a9 Mon Sep 17 00:00:00 2001
From: Sascha Matzke <sascha.matzke@didolo.org>
Date: Fri, 1 May 2009 16:13:51 +0200
Subject: [PATCH] fixed compile errors

---
 extra/mongodb/tuple/tuple.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/extra/mongodb/tuple/tuple.factor b/extra/mongodb/tuple/tuple.factor
index beb7f41384..e4c2e5b69a 100644
--- a/extra/mongodb/tuple/tuple.factor
+++ b/extra/mongodb/tuple/tuple.factor
@@ -20,7 +20,7 @@ SYNTAX: MDBTUPLE:
     tuple-collection
     [ create-collection ]
     [ [ tuple-index-list ] keep
-      '[ _ name>> swap [ name>> ] [ spec>> ] bi ensure-index ] each
+      '[ _ name>> swap [ name>> ] [ spec>> ] bi <index-spec> ensure-index ] each
     ] bi ;
 
 : ensure-tables ( classes -- )
@@ -80,4 +80,4 @@ PRIVATE>
 
 : count-tuples ( tuple/query -- n )
    dup mdb-query-msg? [ tuple>query ] unless
-   [ collection>> ] [ query>> ] bi count ;
+   [ collection>> ] [ query>> ] bi <query> count ;