send-messages ( messages target -- )


Vocabulary
benchmark.ring

Inputs
messagesan object
targetan object


Outputs
None

Definition
USING: concurrency.messaging kernel math sequences ;

IN: benchmark.ring

: send-messages ( messages target -- )
[ dup <iota> ] dip [ send ] curry each
[ receive drop ] times ;