fixed collection problem (query)
parent
449f677ad8
commit
56bad90e73
|
@ -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 ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue