(stop) ( obj thread -- * )

Vocabulary

threads.private

Inputs

obj	an object
thread	an object

Outputs

None

Definition

USING: accessors boxes kernel ;

IN: threads.private

: (stop) ( obj thread -- * )
    dup runnable>>
    [ context>> box> set-context-and-delete ]
    [ t >>runnable drop [start] start-context-and-delete ] if ;