with-semaphore-timeout ( semaphore timeout quot -- )
Counting semaphores

Prev:

with-semaphore ( semaphore quot -- )

Vocabulary
concurrency.semaphores

Inputs

semaphore	a semaphore
timeout	a duration or f
quot	a quotation

Outputs
None

Word description
Calls the quotation with the semaphore held.

Definition

USING: continuations ;

IN: concurrency.semaphores

:: with-semaphore-timeout ( semaphore timeout quot -- )
    semaphore timeout acquire-timeout quot
    [ semaphore release ] finally ; inline