close the INPUT-PORT

2005-05-18 18:56:30 +00:00 · 2005-05-18 18:56:30 +00:00 · 214a66021f
parent ee148a86ab
commit 214a66021f
1 changed files with 3 additions and 1 deletions
--- a/scheme/tty-debug.scm
+++ b/scheme/tty-debug.scm
@ -5,6 +5,7 @@
      open-pty
    (lambda (input-port name)
      (set! *tty-port* (dup->outport input-port))
+      (close input-port)
      (set-port-buffering *tty-port* bufpol/none)
      name)))

@ -15,3 +16,4 @@
     (lambda ()
       (for-each display args)
       (newline)))))
+