From 598f7289db9955584457ffc11c8504f3938a1618 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Fri, 20 May 2022 18:45:24 +0200
Subject: cuirass: Close each inferior upon completion.

* build-aux/cuirass/evaluate.scm <top level>: Add 'close-inferior' call.
---
 build-aux/cuirass/evaluate.scm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'build-aux')

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)))))))
-- 
cgit v1.2.1