Some fixes to improve the debugging of modules that employ tty-debug
This commit is contained in:
parent
8c5de5ee27
commit
10821ee8dd
|
@ -14,7 +14,7 @@
|
||||||
|
|
||||||
(define debug-message
|
(define debug-message
|
||||||
(lambda args
|
(lambda args
|
||||||
(if debug-mode
|
(if (and debug-mode *tty-port*)
|
||||||
(with-current-output-port*
|
(with-current-output-port*
|
||||||
*tty-port*
|
*tty-port*
|
||||||
(lambda ()
|
(lambda ()
|
||||||
|
|
Loading…
Reference in New Issue