with-result ( options quot -- )

Vocabulary

mongodb.benchmark

Inputs

options	an object
quot	an object

Outputs

None

Definition

USING: combinators kernel namespaces ;

IN: mongodb.benchmark

: with-result ( options quot -- )
    [ [ <result> ] ] dip
    [ ( options -- time ) call-effect print-result ] curry
    compose with-scope ;