cuirass: Close each inferior upon completion.

* build-aux/cuirass/evaluate.scm <top level>: Add 'close-inferior' call.
This commit is contained in:
Ludovic Courtès 2022-05-20 18:45:24 +02:00
parent a4994d7393
commit 598f7289db
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -96,6 +96,7 @@ (define derivation
(channels . ,channels)))))) (channels . ,channels))))))
(file (file
(string-append directory "/jobs-" system ".scm"))) (string-append directory "/jobs-" system ".scm")))
(close-inferior inferior)
(call-with-output-file file (call-with-output-file file
(lambda (port) (lambda (port)
(write jobs port))))))) (write jobs port)))))))