diff --git a/extra/bson/reader/reader.factor b/extra/bson/reader/reader.factor index f1f3ab8508..4eb19a33dd 100644 --- a/extra/bson/reader/reader.factor +++ b/extra/bson/reader/reader.factor @@ -15,6 +15,8 @@ SYMBOL: state DEFER: stream>assoc +ERROR: unknown-bson-type type msg ; + object ] } - { T_Binary_Function [ read ] } - [ drop read >string ] + { T_Binary_Function [ read-sized-string ] } + { T_Binary_MD5 [ read >string ] } + { T_Binary_UUID [ read >string ] } + [ "unknown binary sub-type" unknown-bson-type ] } case ; inline TYPED: bson-regexp-read ( -- mdbregexp: mdbregexp ) @@ -90,6 +94,7 @@ TYPED: element-data-read ( type: integer -- object ) { T_Code [ read-int32 read-sized-string ] } { T_ScopedCode [ read-int32 drop read-cstring H{ } clone stream>assoc ] } { T_NULL [ f ] } + [ "type unknown" unknown-bson-type ] } case ; inline recursive TYPED: (read-object) ( type: integer name: string -- ) diff --git a/extra/mongodb/driver/driver-docs.factor b/extra/mongodb/driver/driver-docs.factor index 95acd523b3..224ed5d83d 100644 --- a/extra/mongodb/driver/driver-docs.factor +++ b/extra/mongodb/driver/driver-docs.factor @@ -81,15 +81,13 @@ HELP: create-collection HELP: delete { $values - { "collection" "a collection" } - { "selector" "assoc which identifies the objects to be removed from the collection" } + { "delete-msg" "a delete msg" } } { $description "removes objects from the collection (with lasterror check)" } ; HELP: delete-unsafe { $values - { "collection" "a collection" } - { "selector" "assoc which identifies the objects to be removed from the collection" } + { "delete-msg" "a delete msg" } } { $description "removes objects from the collection (without error check)" } ;