serialize ( 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

: serialize ( doc-quot: ( i -- doc ) -- quot: ( -- ) )
    '[
        trial-size
        [ _ ( i -- doc ) call-effect >bson drop ] each-integer
    ] ;