wait-for-flag-timeout ( flag timeout -- ) (original) (raw)

wait-for-flag-timeout ( flag timeout -- )

Vocabulary
concurrency.flags

Inputs

Outputs
None

Word description
Waits for a flag to be raised or throws a timed-out-error if the flag wasn't raised in time.

Definition

USING: accessors concurrency.conditions kernel ;

IN: concurrency.flags

: wait-for-flag-timeout ( flag timeout -- )
over value>> [ 2drop ] [ [ threads>> ] dip "flag" wait ] if
;