Code for printing debug messages on a pty

scheme/debug-packages.scm

@@ -0,0 +1,8 @@
+(define-interface tty-debug-interface
+  (export init-tty-debug-output!
+	  debug-message))
+
+(define-structure tty-debug tty-debug-interface
+  (open scheme-with-scsh)
+  (files tty-debug))
+    

scheme/tty-debug.scm

@@ -0,0 +1,17 @@
+(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))
+      (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)))))