write-assoc ( assoc: hashtables -- )

Vocabulary

bson.private

Inputs

assoc

a hashtables

Outputs

None

Definition

USING: assocs kernel typed ;

IN: bson.private

TYPED: write-assoc ( assoc: hashtables -- )
    [
        [ write-oid-field ] [
            [ skip-field? [ 2drop ] [ write-pair ] if ]
            assoc-each
        ] bi write-eoo
    ] curry with-length-prefix ; inline recursive