Some cleanup.

1 files changed, 5 insertions, 0 deletions

diff --git a/main.scm b/main.scm
index 95647810..71ea2ed4 100755
--- a/main.scm
+++ b/main.scm
@@ -104,6 +104,11 @@
       ;; (format #t "c = ~c (~d)~%" char (char->integer char))
 
       (unless (or (eof-object? char)
+                  ;; TODO this requires that `q' is pressed as many
+                  ;; times as other inputs where pressed to actually
+                  ;; quit.
+                  ;; ^C only works because it force closes the
+                  ;; program.
                   (memv char (list #\q (ctrl #\C))))
         (loop (read-char (current-input-port)))))))