>From 32592496ba557849b0fda0b49c530d6b5a77bd2d Mon Sep 17 00:00:00 2001 From: Christian Kellermann Date: Wed, 18 Apr 2012 13:28:58 +0200 Subject: [PATCH] make csi close stdin/stderr/stdout when exiting. --- csi.scm | 5 ++++- 1 files changed, 4 insertions(+), 1 deletions(-) diff --git a/csi.scm b/csi.scm index de17b74..b765efe 100644 --- a/csi.scm +++ b/csi.scm @@ -1091,7 +1091,10 @@ EOF (lambda (k) (set! ##sys#quit-hook (lambda _ (k #f))) (repl csi-eval))) - (##sys#write-char-0 #\newline ##sys#standard-output) ) ) + (##sys#write-char-0 #\newline ##sys#standard-output) + (close-input-port ##sys#standard-input) + (close-output-port ##sys#standard-output) + (close-output-port ##sys#standard-error) ) ) (let* ((arg (car args))) (cond ((member arg simple-options)) ((member arg complex-options) -- 1.7.5.4