fixed tuple query

diff --git a/extra/mongodb/tuple/tuple.factor b/extra/mongodb/tuple/tuple.factor
index e4c2e5b69a0d28dab603ba163fad2c354c96de99..19281b769ae9af930b9f1ee6d1cd52c37bfa4d7d 100644 (file)
--- 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 ;