11 lines
199 B
Scheme
11 lines
199 B
Scheme
|
(define-structure semaphores
|
||
|
|
(open scheme
|
||
|
|
locks
|
||
|
|
with-lock
|
||
|
|
define-record-types)
|
||
|
|
(files semaphore))
|
||
|
|
|
||
|
|
(define-structure with-lock with-lock-interface
|
||
|
|
(open scheme
|
||
|
|
locks)
|
||
|
|
(files with-lock))
|