From add69e1e05246e31d9f01460dc388f295fd4821c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Wed, 20 Mar 2019 21:41:36 +0100
Subject: Some cleanup.

---
 main.scm | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'main.scm')

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)))))))
 
-- 
cgit v1.2.3