suzanne.soy/racket-pkg-website
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Release semaphore even in case of error

Browse Source
This commit is contained in:
Tony Garnock-Jones 2016-08-02 19:14:20 -04:00
parent 9daeb78cd7
commit 9fe90a5c54
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/static.rkt
View File

@ -172,9 +172,12 @@
(define (put/bytes^ p cb mt h) (define (put/bytes^ p cb mt h)
(semaphore-wait put-bytes-sema) (semaphore-wait put-bytes-sema)
(thread (thread
(λ () (lambda ()
(put/bytes p cb mt h) (with-handlers ((values (lambda (e)
(semaphore-post put-bytes-sema)))) (semaphore-post put-bytes-sema)
(raise e))))
(put/bytes p cb mt h)
(semaphore-post put-bytes-sema)))))
(define (aws-put-file! index absolute-path content-bytes mime-type [headers '()]) (define (aws-put-file! index absolute-path content-bytes mime-type [headers '()])
(define relative-path (absolute-path->relative-path absolute-path)) (define relative-path (absolute-path->relative-path absolute-path))