next ( -- obj thread )

Vocabulary

threads.private

Inputs

None

Outputs

obj	an object
thread	an object

Definition

USING: accessors arrays deques kernel sequences threads ;

IN: threads.private

: next ( -- obj thread )
    expire-sleep-loop wake-up-callbacks run-queue pop-back dup
    array? [ first2 ] [ [ f ] dip ] if f >>state dup set-self ;