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

call-with-file-lock: fix port leak on error escape

Browse Source
This commit is contained in:
Matthew Flatt 2013-11-06 08:16:29 -07:00
parent 362b1eb1be
commit 02bbccc200
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/collects/racket/file.rkt
View File

@ -357,7 +357,7 @@
(with-handlers ([exn:fail:filesystem:exists? (lambda (exn) 'ok)]) (with-handlers ([exn:fail:filesystem:exists? (lambda (exn) 'ok)])
(close-output-port (open-output-file lock-file #:exists 'error)))) (close-output-port (open-output-file lock-file #:exists 'error))))
(((if (eq? kind 'exclusive) (((if (eq? kind 'exclusive)
(lambda (fn proc) (call-with-output-file fn proc #:exists 'update)) (lambda (fn proc) (call-with-output-file* fn proc #:exists 'update))
call-with-input-file*) call-with-input-file*)
lock-file lock-file
(lambda (p) (lambda (p)