civodul pushed a commit to branch master
in repository dmd.
commit ae9429f0694ea3ce4726ebfb34a5e1ea23dd53da
Author: Ludovic Courtès <[email protected]>
Date: Fri May 9 16:03:05 2014 +0200
Close the current log output port in 'stop-logging'.
* modules/dmd/comm.scm (stop-logging): Add 'close-port' call.
---
modules/dmd/comm.scm | 1 +
1 files changed, 1 insertions(+), 0 deletions(-)
diff --git a/modules/dmd/comm.scm b/modules/dmd/comm.scm
index b95fb50..fb08629 100644
--- a/modules/dmd/comm.scm
+++ b/modules/dmd/comm.scm
@@ -108,6 +108,7 @@ return the socket."
(mkdir directory)))
(set! log-output-port (open-file file "al"))) ; line-buffered port
(define (stop-logging)
+ (close-port log-output-port)
(set! log-output-port (%make-void-port "w")))
(define %current-client-socket
