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

Vocabulary

concurrency.flags

Inputs

flag	a flag
timeout	a duration

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
    ;