run-mason-benchmarks ( vocabs quot: ( vocab -- time ) -- )

Vocabulary

mason.test

Inputs

vocabs	an object
quot	a quotation with stack effect ( vocab -- time )

Outputs

None

Definition

USING: arrays benchmark kernel sequences ;

IN: mason.test

:: run-mason-benchmarks
    ( vocabs quot: ( vocab -- time ) -- )
    V{ } clone :> results
    V{ } clone :> errors results errors save-benchmark-results
    vocabs [
        1array quot run-benchmarks
        [ results push-all ] [ errors push-all ] bi*
        results errors save-benchmark-results
    ] each ; inline