2 files changed, 6 insertions, 4 deletions
diff --git a/module/vcomponent/formats/vdir/parse.scm b/module/vcomponent/formats/vdir/parse.scm
index b21a5f2b..46626402 100644
--- a/module/vcomponent/formats/vdir/parse.scm
+++ b/module/vcomponent/formats/vdir/parse.scm
@@ -18,7 +18,8 @@
   :use-module (calp translation)
 
   :use-module (vcomponent formats ical parse)
-  )
+
+  :export (parse-vdir))
 
 
 
@@ -26,7 +27,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-public (parse-vdir path)
+(define (parse-vdir path)
   ;; TODO empty files here cause "#<eof>" to appear in the output XML, which is *really* bad.
   (let ((color
          (catch 'system-error
diff --git a/module/vcomponent/formats/vdir/save-delete.scm b/module/vcomponent/formats/vdir/save-delete.scm
index fb84d59c..ac520463 100644
--- a/module/vcomponent/formats/vdir/save-delete.scm
+++ b/module/vcomponent/formats/vdir/save-delete.scm
@@ -17,10 +17,11 @@
   :use-module (vcomponent)
   :use-module (calp translation)
   :use-module ((hnh util io) :select (with-atomic-output-to-file))
+  :export (save-event remove-event)
   )
 
 
-(define-public (save-event event)
+(define (save-event event)
   (define calendar (parent event))
 
   (unless calendar
@@ -50,7 +51,7 @@
     uid))
 
 
-(define-public (remove-event event)
+(define (remove-event event)
   (define calendar (parent event))
   (unless (eq? 'vdir (prop calendar '-X-HNH-SOURCETYPE))
     (scm-error 'wrong-type-arg "remove-event"