sunet/scheme/httpd/surflets/with-locks.scm

;; From sunterlib

(define (with-lock* lock thunk)
  (dynamic-wind
   (lambda ()
     (obtain-lock lock))
   thunk
   (lambda ()
     (release-lock lock))))

(define-syntax with-lock
  (syntax-rules ()
    ((with-lock lock body ...)
     (with-lock* lock (lambda () body ...)))))
Factor out with-locks from surflet-handler 2003-04-13 13:23:11 -04:00			`;; From sunterlib`

Add non-thunk version to with-lock. Note: To follow naming conventions of scsh, the old with-lock is renamed to with-lock*. The syntactic sugar version is with-lock now. 2003-04-13 13:36:39 -04:00			`(define (with-lock* lock thunk)`
Factor out with-locks from surflet-handler 2003-04-13 13:23:11 -04:00			`(dynamic-wind`
			`(lambda ()`
			`(obtain-lock lock))`
			`thunk`
			`(lambda ()`
			`(release-lock lock))))`

Add non-thunk version to with-lock. Note: To follow naming conventions of scsh, the old with-lock is renamed to with-lock*. The syntactic sugar version is with-lock now. 2003-04-13 13:36:39 -04:00			`(define-syntax with-lock`
			`(syntax-rules ()`
			`((with-lock lock body ...)`
			`(with-lock* lock (lambda () body ...)))))`