add-reader ( lock -- )

Vocabulary

concurrency.locks.private

Inputs

lock

an object

Outputs

None

Definition

USING: accessors kernel math ;

IN: concurrency.locks.private

: add-reader ( lock -- ) [ 1 + ] change-reader# drop ;