Close executable binary ports explicitly.
This commit is contained in:
parent
5d7e4a0117
commit
517e1baeb6
1 changed files with 2 additions and 0 deletions
|
@ -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))))
|
||||
|
||||
)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue