insert ( 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: accessors kernel namespaces ;

IN: mongodb.benchmark

: insert ( doc-quot: ( i -- doc ) -- quot: ( -- ) )
    prepare-collection result get index>>
    [ [ prepare-index ] keep ] when result get batch>>
    [ [ (insert-batch) ] 2curry ] [ [ (insert) ] 2curry ] if ;