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: ( -- ) )
    [ ( i -- doc ) call-effect assoc>bv drop ] curry
    [ [ trial-size ] ] dip [ each-integer ] curry compose ;