expire-sleep? ( -- ? )

Vocabulary

threads.private

Inputs

None

Outputs

?

an object

Definition

USING: heaps kernel math system threads ;

IN: threads.private

: expire-sleep? ( -- ? )
    sleep-queue dup heap-empty?
    [ drop f ] [ heap-peek nip nano-count <= ] if ;