deserialize ( doc-quot: ( i -- doc ) -- quot: ( -- ) )

Vocabulary

mongodb.benchmark

Inputs

doc-quot

a quotation with stack effect ( i -- doc )

Outputs

quot	a quotation with stack effect ( -- )

Definition

USING: bson combinators io.encodings.binary
io.streams.byte-array kernel math ;

IN: mongodb.benchmark

: deserialize ( doc-quot: ( i -- doc ) -- quot: ( -- ) )
    [ 0 ] dip ( i -- doc ) call-effect assoc>bv
    [ binary [ H{ } stream>assoc drop ] with-byte-reader ] curry
    [ [ trial-size ] ] dip [ times ] curry compose ;