counter-test ( -- n1 n2 n3 )

Vocabulary

channels.examples

Inputs

None

Outputs

n1	an object
n2	an object
n3	an object

Definition

USING: channels kernel threads ;

IN: channels.examples

: counter-test ( -- n1 n2 n3 )
    <channel> dup [ counter ] curry "Counter" spawn drop
    [ from ] keep [ from ] keep from ;