brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Close stdin.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-11 09:16:17 +02:00
parent 6fb6528919
commit fd5ef664d8
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/util-io.scm
View file

@ -74,6 +74,7 @@
(display (car lines) stdin) (display (car lines) stdin)
(newline stdin) (newline stdin)
(loop (cdr lines)))) (loop (cdr lines))))
(close-output-port stdin)
(let ((result (read-lines stdout))) (let ((result (read-lines stdout)))
(let-values (((pid exit-ok? exit/signal) (process-wait pid))) (let-values (((pid exit-ok? exit/signal) (process-wait pid)))
result)))) result))))