ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 13:28:12 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

utils: Make sure `substitute' writes all its output.

Browse source 
* guix/build/utils.scm (substitute): Close OUT before renaming it.
This commit is contained in:
Ludovic Courtès 2012-07-06 00:51:55 +02:00
parent 1a7d8e2048
commit 8e6ecb1400
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
guix/build/utils.scm
View file

@ -170,6 +170,7 @@ (define (substitute file pattern match-proc)
(display line out) (display line out)
(newline out))) (newline out)))
(loop (read-line in))))))) (loop (read-line in)))))))
(close out)
(rename-file template file)) (rename-file template file))
(lambda (key . args) (lambda (key . args)
(false-if-exception (delete-file template)))))) (false-if-exception (delete-file template))))))