diff options
Diffstat (limited to 'module/vcomponent')
-rw-r--r-- | module/vcomponent/primitive.scm | 2 | ||||
-rw-r--r-- | module/vcomponent/timezone.scm | 2 |
2 files changed, 3 insertions, 1 deletions
diff --git a/module/vcomponent/primitive.scm b/module/vcomponent/primitive.scm index 53d73652..433e31ed 100644 --- a/module/vcomponent/primitive.scm +++ b/module/vcomponent/primitive.scm @@ -13,6 +13,8 @@ %vcomponent-get-attribute %vcomponent-attribute-list + %vcomponent-get-hash-table + %vcomponent-shallow-copy)) 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))))) |