(insert) ( quot: ( i -- doc ) collection -- )

Vocabulary

mongodb.benchmark

Inputs

quot	a quotation with stack effect ( i -- doc )
collection	an object

Outputs

None

Definition

USING: accessors combinators kernel math mongodb.driver
namespaces ;

IN: mongodb.benchmark

: (insert) ( quot: ( i -- doc ) collection -- )
    [ trial-size ] 2dip [ ] curry
    [ [ ( i -- doc ) call-effect ] curry ] dip
    [ dip result get lasterror>> [ save ] [ save-unsafe ] if ]
    curry compose each-integer ;