release-write-lock ( lock -- )

Vocabulary

concurrency.locks.private

Inputs

lock

an object

Outputs

None

Definition

USING: accessors concurrency.conditions deques kernel ;

IN: concurrency.locks.private

: release-write-lock ( lock -- )
    f >>writer dup readers>> deque-empty?
    [ notify-writer ] [ readers>> notify-all ] if ;