destroy-ring ( target -- )

Vocabulary

benchmark.ring

Inputs

target

an object

Outputs

None

Definition

USING: concurrency.messaging kernel ;

IN: benchmark.ring

: destroy-ring ( target -- )
    done swap send [ done eq? ] receive-if drop ;