reentrant-write-lock-ok? ( lock -- ? )

Vocabulary

concurrency.locks.private

Inputs

lock

an object

Outputs

?

an object

Definition

USING: accessors combinators.short-circuit kernel math threads ;

IN: concurrency.locks.private

: reentrant-write-lock-ok? ( lock -- ? )
    { [ writer>> self eq? ] [ reader#>> zero? ] } 1&& ;