aboutsummaryrefslogtreecommitdiff
path: root/build-aux
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2022-05-20 18:45:24 +0200
committerLudovic Courtès <ludo@gnu.org>2022-05-20 18:46:07 +0200
commit598f7289db9955584457ffc11c8504f3938a1618 (patch)
treefb0144df4e3de922febf1ee050a3c7a9e67cf3c1 /build-aux
parenta4994d739306abcf3f36706012fb88b35a970e6b (diff)
downloadguix-598f7289db9955584457ffc11c8504f3938a1618.tar
guix-598f7289db9955584457ffc11c8504f3938a1618.tar.gz
cuirass: Close each inferior upon completion.
* build-aux/cuirass/evaluate.scm <top level>: Add 'close-inferior' call.
Diffstat (limited to 'build-aux')
-rw-r--r--build-aux/cuirass/evaluate.scm1
1 files changed, 1 insertions, 0 deletions
diff --git a/build-aux/cuirass/evaluate.scm b/build-aux/cuirass/evaluate.scm
index fc0744ad2a..0bd9e2481f 100644
--- a/build-aux/cuirass/evaluate.scm
+++ b/build-aux/cuirass/evaluate.scm
@@ -96,6 +96,7 @@
(channels . ,channels))))))
(file
(string-append directory "/jobs-" system ".scm")))
+ (close-inferior inferior)
(call-with-output-file file
(lambda (port)
(write jobs port)))))))