steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fixed tuple query

db4
Sascha Matzke 2009-05-01 16:22:48 +02:00
parent cce0341e28
commit 286026d5d5
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
extra/mongodb/tuple/tuple.factor
View File

@ -71,13 +71,12 @@ PRIVATE>
tuple>selector <query> ; tuple>selector <query> ;
: select-tuple ( tuple/query -- tuple/f ) : 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* ; find-one [ assoc>tuple ] [ f ] if* ;
: select-tuples ( tuple/query -- cursor tuples/f ) : 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 ; find [ assoc>tuple ] map ;
: count-tuples ( tuple/query -- n ) : count-tuples ( tuple/query -- n )
dup mdb-query-msg? [ tuple>query ] unless dup mdb-query-msg? [ tuple>query ] unless count ;
[ collection>> ] [ query>> ] bi <query> count ;