<linked-thread> ( quot name mailbox -- thread' )

Vocabulary

concurrency.mailboxes

Inputs

quot	an object
name	an object
mailbox	an object

Outputs

thread'

an object

Definition

USING: accessors kernel threads ;

IN: concurrency.mailboxes

: <linked-thread> ( quot name mailbox -- thread' )
    [ linked-thread new-thread ] dip >>supervisor ;