thread. ( thread -- )

Vocabulary

tools.threads

Inputs

thread

an object

Outputs

None

Definition

USING: accessors io io.styles kernel math.order math.parser
prettyprint system threads ;

IN: tools.threads

: thread. ( thread -- )
    dup id>> pprint-cell dup name>>
    [ over write-object ] with-cell dup state>>
    [ [ dup self eq? "running" "yield" ? ] unless* write ]
    with-cell [
        sleep-entry>> [
            key>> nano-count [-] number>string write
            " nanos" write
        ] when*
    ] with-cell ;