diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-04-10 00:46:47 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-04-10 00:46:47 +0200 |
| commit | 5709173103aedbab5079252709d83947f43b2ca4 (patch) | |
| tree | 7924a1fd4e8844ab0c7f0c16c28cfd7ebc9135e9 /module/vcalendar | |
| parent | Start using multi-set! (diff) | |
| download | calp-5709173103aedbab5079252709d83947f43b2ca4.tar.gz calp-5709173103aedbab5079252709d83947f43b2ca4.tar.xz | |
Minor cleanups.
Diffstat (limited to 'module/vcalendar')
| -rw-r--r-- | module/vcalendar/output.scm | 3 | ||||
| -rw-r--r-- | module/vcalendar/recurrence/parse.scm | 4 |
2 files changed, 3 insertions, 4 deletions
diff --git a/module/vcalendar/output.scm b/module/vcalendar/output.scm index 48197cb4..a15857f7 100644 --- a/module/vcalendar/output.scm +++ b/module/vcalendar/output.scm @@ -28,8 +28,7 @@ (type comp) comp) (for-each-in kvs (lambda (kv) - (let ((key (car kv)) - (value (cdr kv))) + (let* (((key . value) kv)) (format #t "~a ~20@a: ~a~%" (make-string depth #\:) key value)))) diff --git a/module/vcalendar/recurrence/parse.scm b/module/vcalendar/recurrence/parse.scm index 9f933120..015bb578 100644 --- a/module/vcalendar/recurrence/parse.scm +++ b/module/vcalendar/recurrence/parse.scm @@ -22,8 +22,8 @@ ((invalid-value) "ERR ~a [~a] for key [~a], ignoring.~%") (else "~a ~a ~a")))) - (format #t fmt err val key)) - (cont obj)))) + (format (current-error-port) fmt err val key)) + (cont #f)))) (eval-when (expand) (define ((handle-case stx obj) key val proc) |