diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2019-10-06 13:35:20 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-10-06 13:35:20 +0200 |
| commit | feefb97cf9118c8e5d7018e33887a371dadc5eab (patch) | |
| tree | 33c42222df642813b726f5cc085d0d3569e441a1 /module/vcomponent/timezone.scm | |
| parent | Remove old C code. (diff) | |
| download | calp-feefb97cf9118c8e5d7018e33887a371dadc5eab.tar.gz calp-feefb97cf9118c8e5d7018e33887a371dadc5eab.tar.xz | |
Minor cleanup in scheme code.
Diffstat (limited to '')
| -rw-r--r-- | module/vcomponent/timezone.scm | 3 |
1 files changed, 2 insertions, 1 deletions
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. |