From 53eab85617c656b88a48968971e3b79d1310cb71 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Fri, 3 May 2019 13:18:33 +0200
Subject: more

---
 module/vcomponent/primitive.scm | 2 ++
 module/vcomponent/timezone.scm  | 2 +-
 2 files changed, 3 insertions(+), 1 deletion(-)

(limited to 'module/vcomponent')

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)))))
-- 
cgit v1.2.3