do-lock ( lock timeout quot acquire release -- )

Vocabulary

concurrency.locks.private

Inputs

lock	an object
timeout	an object
quot	an object
acquire	an object
release	an object

Outputs

None

Definition

USING: continuations kernel ;

IN: concurrency.locks.private

:: do-lock ( lock timeout quot acquire release -- )
    lock timeout acquire call quot lock release curry finally ;
    inline