From 5709173103aedbab5079252709d83947f43b2ca4 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Wed, 10 Apr 2019 00:46:47 +0200 Subject: Minor cleanups. --- module/vcalendar/recurrence/parse.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'module/vcalendar/recurrence/parse.scm') 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) -- cgit v1.2.3