close the INPUT-PORT

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)))
 
@@ -14,4 +15,5 @@
      *tty-port*
      (lambda ()
        (for-each display args)
-       (newline)))))
+       (newline)))))
+