tunnel ( process -- process )

Vocabulary

benchmark.ring

Inputs

process

an object

Outputs

process

an object

Definition

USING: concurrency.messaging kernel ;

IN: benchmark.ring

: tunnel ( process -- process )
    receive 2dup swap send done eq? [ tunnel ] unless ;