tribes/guix
1
0
Fork 1
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-08-05 18:51:31 +02:00
Code Activity

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
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
guix/utils.scm
+2 -1
View File
@@ -630,7 +630,8 @@ output port, and PROC's result is returned."
(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."