(next) ( obj thread -- obj' )

Vocabulary

threads.private

Inputs

obj	an object
thread	an object

Outputs

obj'

an object

Definition

IN: threads.private

GENERIC: (next) ( obj thread -- obj' )

Methods

USING: accessors boxes kernel threads threads.private ;

M: thread (next)
    dup runnable>>
    [ context>> box> set-context ]
    [ t >>runnable drop [start] start-context ] if ;