diff options
-rwxr-xr-x | main.scm | 5 | ||||
-rw-r--r-- | vcalendar.scm | 4 |
2 files changed, 5 insertions, 4 deletions
@@ -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)) - |