diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2019-05-03 13:18:33 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-05-03 15:19:34 +0200 |
| commit | 53eab85617c656b88a48968971e3b79d1310cb71 (patch) | |
| tree | a59247798b5d1ff49cab4e515c91be6ecd524555 /module/vcomponent/timezone.scm | |
| parent | Think it's only reintroducing of set! left. (diff) | |
| download | calp-53eab85617c656b88a48968971e3b79d1310cb71.tar.gz calp-53eab85617c656b88a48968971e3b79d1310cb71.tar.xz | |
moreSCM
Diffstat (limited to 'module/vcomponent/timezone.scm')
| -rw-r--r-- | module/vcomponent/timezone.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/vcomponent/timezone.scm b/module/vcomponent/timezone.scm index 5b262f1c..1498639c 100644 --- a/module/vcomponent/timezone.scm +++ b/module/vcomponent/timezone.scm @@ -81,7 +81,7 @@ (and (time<=? start (attr ev 'DTSTART)) (time<? (attr ev 'DTSTART) end)))) (attr (find-tz (parent ev) - (car (prop (attr* ev 'DTSTART) 'TZID))) + (prop (attr* ev 'DTSTART) 'TZID)) 'X-HNH-TZSET)))) (if (not ret) 0 (parse-offset (attr (car ret) 'TZOFFSETTO))))) |