scsh-conservatory
/
commander-s
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

close the INPUT-PORT

This commit is contained in:
eknauel 2005-05-18 18:56:30 +00:00
parent ee148a86ab
commit 214a66021f
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scheme/tty-debug.scm
View File

@ -5,6 +5,7 @@
open-pty open-pty
(lambda (input-port name) (lambda (input-port name)
(set! *tty-port* (dup->outport input-port)) (set! *tty-port* (dup->outport input-port))
(close input-port)
(set-port-buffering *tty-port* bufpol/none) (set-port-buffering *tty-port* bufpol/none)
name))) name)))
@ -14,4 +15,5 @@
*tty-port* *tty-port*
(lambda () (lambda ()
(for-each display args) (for-each display args)
(newline))))) (newline)))))