mailbox-benchmark ( -- )

Vocabulary

benchmark.mailbox

Inputs

None

Outputs

None

Definition

USING: concurrency.mailboxes kernel sequences ;

IN: benchmark.mailbox

: mailbox-benchmark ( -- )
    100000 <iota> <hidden-mailbox>
    '[ dup _ [ mailbox-put ] [ mailbox-get ] bi assert= ] each ;