6 lines
215 B
Racket
6 lines
215 B
Racket
(define foo
|
|
(let ([sema (make-semaphore 1)])
|
|
(lambda (x)
|
|
(dynamic-wind (λ() (semaphore-wait sema))
|
|
(λ() (... do something ...))
|
|
(λ() (semaphore-post sema))))))
|