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 +++++
 vcalendar.scm | 4 ----
 2 files changed, 5 insertions(+), 4 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)))))))
 
diff --git a/vcalendar.scm b/vcalendar.scm
index efb00247..1145b16e 100644
--- a/vcalendar.scm
+++ b/vcalendar.scm
@@ -103,12 +103,8 @@
 
              (else (throw 'something))))))
 
-    (display component) (newline)
-    (display root) (newline)
-
     (set! (attr component "NAME")
           (attr root      "NAME"))
     (set! (attr component "COLOR")
           (attr root      "COLOR"))
     component))
-
-- 
cgit v1.2.3