acquire-read-lock ( lock timeout -- )

Vocabulary

concurrency.locks.private

Inputs

lock	an object
timeout	an object

Outputs

None

Definition

USING: accessors concurrency.conditions kernel ;

IN: concurrency.locks.private

: acquire-read-lock ( lock timeout -- )
    over writer>>
    [ 2dup [ readers>> ] dip "read lock" wait ] when drop
    add-reader ;