9 lines
242 B
Scheme
9 lines
242 B
Scheme
#lang scheme
|
|
|
|
(define (semaphore-wait* sema how-many)
|
|
(unless (zero? how-many)
|
|
(semaphore-wait sema)
|
|
(semaphore-wait* sema (sub1 how-many))))
|
|
|
|
(provide/contract
|
|
[semaphore-wait* (semaphore? exact-nonnegative-integer? . -> . void)]) |