NB. An object for a semaphore

NB. The semaphore value

s =: 0

semaphore_type =: 'semaphore'

semaphore_get =: ". 's'

semaphore_inc =: monad def 's =: >:s'

semaphore_dec =: monad def 's =: <:s'