large-doc-prepare ( -- quot: ( i -- doc ) )

Vocabulary

mongodb.benchmark

Inputs

None

Outputs

quot	a quotation with stack effect ( i -- doc )

Definition

USING: assocs calendar kernel ;

IN: mongodb.benchmark

: large-doc-prepare ( -- quot: ( i -- doc ) )
    large-doc drop [
        "x" DOC-LARGE clone [ set-at ] keep
        [ now "access-time" ] dip [ set-at ] keep
    ] ;