release-read-lock ( lock -- )

Vocabulary

concurrency.locks.private

Inputs

lock

an object

Outputs

None

Definition

USING: accessors kernel math ;

IN: concurrency.locks.private

: release-read-lock ( lock -- )
    dup remove-reader dup reader#>> zero?
    [ notify-writer ] [ drop ] if ;