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

fixed find-one

db4
Sascha Matzke 2009-03-30 11:01:15 +02:00
parent 1c1f9f46c6
commit f3a7f9d6be
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
mongodb/driver/driver.factor
View File

@ -242,18 +242,18 @@ GENERIC: count ( collection query -- result )
M: assoc count M: assoc count
[ "count" H{ } clone [ set-at ] keep ] dip [ "count" H{ } clone [ set-at ] keep ] dip
[ over [ "query" ] dip set-at ] when* [ over [ "query" ] dip set-at ] when*
[ cmd-collection ] dip <mdb-query-msg> find-one objects>> first [ cmd-collection ] dip <mdb-query-msg> find-one
[ check-ok ] keep '[ "n" _ at >fixnum ] [ f ] if ; [ check-ok ] keep '[ "n" _ at >fixnum ] [ f ] if ;
: lasterror ( -- error ) : lasterror ( -- error )
cmd-collection H{ { "getlasterror" 1 } } <mdb-query-msg> cmd-collection H{ { "getlasterror" 1 } } <mdb-query-msg>
find-one objects>> first [ "err" ] dip at ; find-one [ "err" ] dip at ;
GENERIC: validate. ( collection -- ) GENERIC: validate. ( collection -- )
M: string validate. M: string validate.
[ cmd-collection ] dip [ cmd-collection ] dip
"validate" H{ } clone [ set-at ] keep "validate" H{ } clone [ set-at ] keep
<mdb-query-msg> find-one objects>> first [ check-ok ] keep <mdb-query-msg> find-one [ check-ok ] keep
'[ "result" _ at print ] when ; '[ "result" _ at print ] when ;
M: mdb-collection validate. M: mdb-collection validate.
name>> validate. ; name>> validate. ;
@ -289,7 +289,7 @@ M: assoc ensure-index
H{ } clone H{ } clone
[ [ "index" ] dip set-at ] keep [ [ "index" ] dip set-at ] keep
[ [ "deleteIndexes" ] dip set-at ] keep [ [ "deleteIndexes" ] dip set-at ] keep
[ cmd-collection ] dip <mdb-query-msg> find-one objects>> first [ cmd-collection ] dip <mdb-query-msg> find-one
check-ok [ "could not drop index" throw ] unless ; check-ok [ "could not drop index" throw ] unless ;
: <update> ( collection selector object -- update-msg ) : <update> ( collection selector object -- update-msg )
@ -323,5 +323,5 @@ M: assoc delete-unsafe
: drop-collection ( name -- ) : drop-collection ( name -- )
[ cmd-collection ] dip [ cmd-collection ] dip
"drop" H{ } clone [ set-at ] keep "drop" H{ } clone [ set-at ] keep
<mdb-query-msg> find-one objects>> first check-ok <mdb-query-msg> find-one check-ok
[ "could not drop collection" throw ] unless ; [ "could not drop collection" throw ] unless ;