new-thread ( quot name class -- thread )

Vocabulary

threads

Inputs

quot	an object
name	an object
class	an object

Outputs

thread

an object

Definition

USING: accessors boxes kernel namespaces ;

IN: threads

: new-thread ( quot name class -- thread )
    new swap >>name swap >>quot \ thread counter >>id
    H{ } clone >>variables <box> >>context ; inline