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

fixed collection problem (query)

db4
Sascha Matzke 2009-04-24 09:32:00 +02:00
parent 449f677ad8
commit 56bad90e73
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
mongodb/driver/driver.factor
View File

@ -120,6 +120,9 @@ MEMO: check-collection ( collection -- fq-collection )
[ [ (ensure-collection) ] keep ] unless [ [ (ensure-collection) ] keep ] unless
[ mdb-instance name>> ] dip "%s.%s" sprintf ; inline [ mdb-instance name>> ] dip "%s.%s" sprintf ; inline
: fix-query-collection ( mdb-query -- mdb-query )
[ check-collection ] change-collection ; inline
PRIVATE> PRIVATE>
: <query> ( collection query -- mdb-query ) : <query> ( collection query -- mdb-query )
@ -151,7 +154,7 @@ M: mdb-cursor get-more ( mdb-cursor -- mdb-cursor objects )
GENERIC: find ( mdb-query -- cursor result ) GENERIC: find ( mdb-query -- cursor result )
M: mdb-query-msg find M: mdb-query-msg find
send-query ; fix-query-collection send-query ;
M: mdb-cursor find M: mdb-cursor find
get-more ; get-more ;
@ -161,6 +164,7 @@ M: mdb-query-msg explain.
GENERIC: find-one ( mdb-query -- result/f ) GENERIC: find-one ( mdb-query -- result/f )
M: mdb-query-msg find-one M: mdb-query-msg find-one
fix-query-collection
1 >>return# send-query-plain objects>> 1 >>return# send-query-plain objects>>
dup empty? [ drop f ] [ first ] if ; dup empty? [ drop f ] [ first ] if ;