acquire-lock ( lock timeout -- )

Vocabulary

concurrency.locks.private

Inputs

lock	an object
timeout	an object

Outputs

None

Definition

USING: accessors concurrency.conditions kernel threads ;

IN: concurrency.locks.private

: acquire-lock ( lock timeout -- )
    over owner>> [ 2dup [ threads>> ] dip "lock" wait ] when
    drop self >>owner drop ;