From 286026d5d5abd6b0c5c32e2b3d634633cca52d77 Mon Sep 17 00:00:00 2001
From: Sascha Matzke <sascha.matzke@didolo.org>
Date: Fri, 1 May 2009 16:22:48 +0200
Subject: [PATCH] fixed tuple query

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

diff --git a/extra/mongodb/tuple/tuple.factor b/extra/mongodb/tuple/tuple.factor
index e4c2e5b69a..19281b769a 100644
--- a/extra/mongodb/tuple/tuple.factor
+++ b/extra/mongodb/tuple/tuple.factor
@@ -71,13 +71,12 @@ PRIVATE>
    tuple>selector <query> ;
 
 : select-tuple ( tuple/query -- tuple/f )
-   dup mdb-query-msg? [ ] [ tuple>query ] if
+   dup mdb-query-msg? [ tuple>query ] unless
    find-one [ assoc>tuple ] [ f ] if* ;
 
 : select-tuples ( tuple/query -- cursor tuples/f )
-   dup mdb-query-msg? [ ] [ tuple>query ] if
+   dup mdb-query-msg? [ tuple>query ] unless
    find [ assoc>tuple ] map ;
 
 : count-tuples ( tuple/query -- n )
-   dup mdb-query-msg? [ tuple>query ] unless
-   [ collection>> ] [ query>> ] bi <query> count ;
+   dup mdb-query-msg? [ tuple>query ] unless count ;