wait ( queue timeout status -- )

Vocabulary

concurrency.conditions

Inputs

queue	an object
timeout	an object
status	an object

Outputs

None

Definition

USING: kernel threads timers ;

IN: concurrency.conditions

: wait ( queue timeout status -- )
    over [
        [ queue-timeout ] dip suspend
        [ timed-out-error ] [ stop-timer ] if
    ] [ [ drop queue ] dip suspend drop ] if ; inline