use the tty-debug package

scheme/nuit-engine.scm

@@ -212,6 +212,10 @@
       
 ;;start the whole thing
 (define (nuit)
+  (let ((tty-name (init-tty-debug-output!)))
+    (display "Debug messages will be on ")
+    (display tty-name)
+    (newline))
   (with-inspecting-handler
    8888
    (lambda (condition)
@@ -453,6 +457,7 @@
   (wrefresh (app-window-curses-win result-window)))
 
 (define (paint)
+  (debug-message "paint called")
   (init-windows!)
   (paint-bar-1)
   (paint-bar-2)

scheme/nuit-packages.scm

@@ -10,8 +10,10 @@
 	handle
 	ncurses
 	srfi-6
+	debugging
 	inspect-exception
-	rt-modules)
+	rt-modules
+	tty-debug)
   (files nuit-engine
 	 handle-fatal-error
 	 directory-files