20 lines
416 B
Scheme
20 lines
416 B
Scheme
(define *tty-port* #f)
|
|
|
|
(define (init-tty-debug-output!)
|
|
(call-with-values
|
|
open-pty
|
|
(lambda (input-port name)
|
|
(set! *tty-port* (dup->outport input-port))
|
|
(close input-port)
|
|
(set-port-buffering *tty-port* bufpol/none)
|
|
name)))
|
|
|
|
(define debug-message
|
|
(lambda args
|
|
(with-current-output-port*
|
|
*tty-port*
|
|
(lambda ()
|
|
(for-each display args)
|
|
(newline)))))
|
|
|