diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-04-06 19:07:41 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-04-06 19:07:41 +0200 |
| commit | 78b23e08a3bfea604ac123aeb330d762c275a622 (patch) | |
| tree | 22806d56bb806bc9054781a1f2c72adc6d1bc68a | |
| parent | Add ev-time<?. (diff) | |
| download | calp-78b23e08a3bfea604ac123aeb330d762c275a622.tar.gz calp-78b23e08a3bfea604ac123aeb330d762c275a622.tar.xz | |
Fix timezone accumelator.
| -rw-r--r-- | module/vcalendar.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/vcalendar.scm b/module/vcalendar.scm index ab404a1a..12e2d9a5 100644 --- a/module/vcalendar.scm +++ b/module/vcalendar.scm @@ -116,7 +116,7 @@ (for-each (lambda (component) (case (type component) ((VTIMEZONE) - (let ((zones (children cal 'VTIMEZONE))) + (let ((zones (children accum 'VTIMEZONE))) (unless (find (lambda (z) (string=? (attr z "TZID") (attr component "TZID"))) |