From feefb97cf9118c8e5d7018e33887a371dadc5eab Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sun, 6 Oct 2019 13:35:20 +0200 Subject: Minor cleanup in scheme code. --- module/vcomponent/timezone.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'module/vcomponent/timezone.scm') diff --git a/module/vcomponent/timezone.scm b/module/vcomponent/timezone.scm index 4a312288..dde32cc2 100644 --- a/module/vcomponent/timezone.scm +++ b/module/vcomponent/timezone.scm @@ -68,7 +68,8 @@ ;; Crashes on error. (define (find-tz cal tzid) (let ((ret (find (lambda (tz) (string=? tzid (attr tz 'TZID))) - (children cal 'VTIMEZONE)))) + (filter (lambda (o) (eq? 'VTIMEZONE (type o))) + (children cal))))) ret)) ;; Takes a VEVENT. -- cgit v1.2.3