ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 05:48:07 -05: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)
result))
(lambda (key . args)
(false-if-exception (delete-file template))))))
(false-if-exception (delete-file template))
(close-port out)))))
(define (cache-directory)
"Return the cache directory for Guix, by default ~/.cache/guix."