outer-loop ( n -- )

Vocabulary

benchmark.timers

Inputs

n

an object

Outputs

None

Definition

USING: concurrency.flags namespaces timers ;

IN: benchmark.timers

: outer-loop ( n -- )
    loop-max set-global 0 loop-count set-global
    <flag> loop-flag set-global [ inner-loop ] 1 every
    loop-flag get-global wait-for-flag stop-timer ;