mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-02-01 15:26:47 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

utils: 'with-atomic-file-output' closes the port upon exception.

Browse source 
Previously it could have left the file descriptor open.

* guix/utils.scm (with-atomic-file-output): Call 'close-port' in handler.
This commit is contained in:
Ludovic Courtès 2016-06-13 18:00:29 +02:00
parent d1f33ba44b
commit c25637dfe8
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
guix/utils.scm
View file

@ -630,7 +630,8 @@ (define (with-atomic-file-output file proc)
(rename-file template file) (rename-file template file)
result)) result))
(lambda (key . args) (lambda (key . args)
(false-if-exception (delete-file template)))))) (false-if-exception (delete-file template))
(close-port out)))))
(define (cache-directory) (define (cache-directory)
"Return the cache directory for Guix, by default ~/.cache/guix." "Return the cache directory for Guix, by default ~/.cache/guix."