From 517e1baeb69ad8aa801ccb6cb6cdd1a90835375a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Fri, 19 May 2023 19:31:04 +0200 Subject: [PATCH] Close executable binary ports explicitly. --- src/util-io.scm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/util-io.scm b/src/util-io.scm index 55a5a87..2f44643 100644 --- a/src/util-io.scm +++ b/src/util-io.scm @@ -96,6 +96,8 @@ (close-output-port stdin) (let ((result (read-lines stdout))) (let-values (((pid exit-ok? exit/signal) (process-wait pid))) + (close-input-port stdout) + (close-input-port stderr) result)))) )