<linked-thread> ( quot name object -- thread )

Vocabulary

threads

Inputs

quot	an object
name	an object
object	an object

Outputs

thread

an object

Definition

USING: accessors kernel ;

IN: threads

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