Some fixes to improve the debugging of modules that employ tty-debug

2005-08-18 09:19:48 +00:00 · 2005-08-18 09:19:48 +00:00 · 10821ee8dd
parent 8c5de5ee27
commit 10821ee8dd
1 changed files with 1 additions and 1 deletions
--- a/scheme/tty-debug.scm
+++ b/scheme/tty-debug.scm
@ -14,7 +14,7 @@

 (define debug-message
  (lambda args
-    (if debug-mode
+    (if (and debug-mode *tty-port*)
 	(with-current-output-port*
 	 *tty-port*
 	 (lambda ()