diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-20 21:41:36 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-21 01:53:21 +0100 |
commit | add69e1e05246e31d9f01460dc388f295fd4821c (patch) | |
tree | c19a14c2c297513bb3e03e838749b0b54d9892cd | |
parent | Move time procedures from main to where they belong. (diff) | |
download | calp-add69e1e05246e31d9f01460dc388f295fd4821c.tar.gz calp-add69e1e05246e31d9f01460dc388f295fd4821c.tar.xz |
Some cleanup.
-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)) - |