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 kernel math ;

IN: mongodb.benchmark

: deserialize ( doc-quot: ( i -- doc ) -- quot: ( -- ) )
    [ 0 ] dip ( i -- doc ) call-effect >bson
    '[ trial-size [ _ bson> ] times ] ;