2003-01-29 02:53:23 -05:00
|
|
|
(define-structure semaphores semaphores-interface
|
2003-01-28 07:48:57 -05:00
|
|
|
(open scheme
|
|
|
|
|
locks
|
|
|
|
|
with-lock
|
|
|
|
|
define-record-types)
|
|
|
|
|
(files semaphore))
|
|
|
|
|
|
|
|
|
|
(define-structure with-lock with-lock-interface
|
|
|
|
|
(open scheme
|
|
|
|
|
locks)
|
|
|
|
|
(files with-lock))
|
