From f12fca91b185cbf83fbe173fadf6a46f6c3c0c65 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Mon, 17 Aug 2020 18:39:53 +0200
Subject: Fixes.

---
 module/vcomponent/vdir/parse.scm       | 4 ++--
 module/vcomponent/vdir/save-delete.scm | 5 +++--
 2 files changed, 5 insertions(+), 4 deletions(-)

(limited to 'module/vcomponent/vdir')

diff --git a/module/vcomponent/vdir/parse.scm b/module/vcomponent/vdir/parse.scm
index ae4ea692..c4b1b694 100644
--- a/module/vcomponent/vdir/parse.scm
+++ b/module/vcomponent/vdir/parse.scm
@@ -4,7 +4,7 @@
 ;; (vcomponent parse ical) handles reading data from icalendar files.
 ;;; Code:
 
-(define-module (vcomponent parse)
+(define-module (vcomponent vdir parse)
   :use-module (srfi srfi-1)
 
   :use-module ((ice-9 hash-table) :select (alist->hash-table))
@@ -24,7 +24,7 @@
 ;; All VTIMEZONE's seem to be in "local" time in relation to
 ;; themselves. Therefore, a simple comparison should work,
 ;; and then the TZOFFSETTO properties can be subtd.
-(define (parse-vdir path)
+(define-public (parse-vdir path)
   (let ((/ (lambda args (string-join args file-name-separator-string 'infix))))
     (let ((color
            (catch 'system-error
diff --git a/module/vcomponent/vdir/save-delete.scm b/module/vcomponent/vdir/save-delete.scm
index 0bc9cb4a..2cbe96bf 100644
--- a/module/vcomponent/vdir/save-delete.scm
+++ b/module/vcomponent/vdir/save-delete.scm
@@ -11,6 +11,7 @@
 
 (define-module (vcomponent vdir save-delete)
   :use-module (util)
+  :use-module ((util exceptions) :select (assert)) 
   :use-module (vcomponent ical output)
   :use-module (vcomponent)
   :use-module ((util io) :select (with-atomic-output-to-file))
@@ -20,7 +21,7 @@
 (define-public (save-event event)
   (define calendar (parent event))
 
-  (assert 'vdir (prop calendar '-X-HNH-SOURCETYPE))
+  (assert (eq? 'vdir (prop calendar '-X-HNH-SOURCETYPE)))
 
   (let* ((uid (or (prop event 'UID) (uuidgen))))
     (set! (prop event 'UID) uid
@@ -35,5 +36,5 @@
 
 (define-public (remove-event event)
   (define calendar (parent event))
-  (assert 'vdir (prop calendar '-X-HNH-SOURCETYPE))
+  (assert (eq? 'vdir (prop calendar '-X-HNH-SOURCETYPE)))
   (delete-file (prop event '-X-HNH-FILENAME)))
-- 
cgit v1.2.3