Handbook
Glossary
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
;