[bench-quot] ( feat-seq op-word -- quot: ( doc-word -- ) )

Vocabulary

mongodb.benchmark

Inputs

feat-seq	an object
op-word	an object

Outputs

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

Definition

USING: combinators kernel memory sequences tools.time ;

IN: mongodb.benchmark

: [bench-quot] ( feat-seq op-word -- quot: ( doc-word -- ) )
    [ [ swap ] curry ] dip [
        [ [ ( -- quot ) execute-effect ] curry ] dip
        [ [ dip [ ( -- ) execute-effect ] each ] curry ] dip
        [ ( quot -- quot ) execute-effect gc benchmark ] curry
        compose [ with-result ] curry each print-separator
    ] curry compose ;