(sieve) ( prime c -- )

Vocabulary

channels.examples

Inputs

prime	an object
c	an object

Outputs

None

Definition

USING: channels kernel threads ;

IN: channels.examples

:: (sieve) ( prime c -- )
    c from :> p <channel> :> newc p prime to
    [ newc p c filter ] "Filter" spawn drop prime newc (sieve) ;