fix for changed mongodb behaviour

db4
Sascha Matzke 2010-06-01 20:07:09 +02:00
parent 134affb339
commit d3aa7812bf
1 changed files with 1 additions and 1 deletions

View File

@ -26,7 +26,7 @@ CONSTRUCTOR: mdb-connection ( instance -- mdb-connection ) ;
: check-ok ( result -- errmsg ? )
[ [ "errmsg" ] dip at ]
[ [ "ok" ] dip at >integer 1 = ] bi ; inline
[ [ "ok" ] dip at ] bi ; inline
: <mdb-db> ( name nodes -- mdb-db )
mdb-db new swap >>nodes swap >>name H{ } clone >>collections ;