write-oid-field ( assoc -- )

Vocabulary

bson.private

Inputs

assoc

an object

Outputs

None

Definition

USING: assocs bson.constants kernel ;

IN: bson.private

: write-oid-field ( assoc -- )
    [ MDB_OID_FIELD dup ] dip at [
        dup oid?
        [ T_OID write-header write-oid ] [ write-pair ] if
    ] [ drop ] if* ; inline