Remove assert.

Barely used, and almost always was better server by a propper error
call.

2 files changed, 19 insertions, 11 deletions

diff --git a/module/vcomponent/formats/vdir/parse.scm b/module/vcomponent/formats/vdir/parse.scm
index c4a48889..272674ed 100644
--- a/module/vcomponent/formats/vdir/parse.scm
+++ b/module/vcomponent/formats/vdir/parse.scm
@@ -38,12 +38,16 @@
 
     (reduce (lambda (item calendar)
 
-              (define-values (events other) (partition (lambda (e) (eq? 'VEVENT (type e)))
-                                                       (children item)))
+              (define-values (events other)
+                (partition (lambda (e) (eq? 'VEVENT (type e)))
+                           (children item)))
 
 
-              ;; (assert (eq? 'VCALENDAR (type calendar)))
-              (assert (eq? 'VCALENDAR (type item)))
+              (unless (eq? 'VCALENDAR (type item))
+                (scm-error 'misc-error "parse-vdir"
+                           "Unexepected top level component. Expected VCALENDAR, got ~a. In file ~s"
+                           (list (type item) (prop item '-X-HNH-FILENAME))
+                           #f))
 
               (for child in (children item)
                    (set! (prop child '-X-HNH-FILENAME)
@@ -60,10 +64,7 @@
               (case (length events)
                 [(0) (warning "No events in component~%~a"
                               (prop item '-X-HNH-FILENAME))]
-                [(1)
-                 (let ((child (car events)))
-                   (assert (memv (type child) '(VTIMEZONE VEVENT)))
-                   (add-child! calendar child))]
+                [(1) (add-child! calendar (car events))]
 
                 ;; two or more
                 [else
diff --git a/module/vcomponent/formats/vdir/save-delete.scm b/module/vcomponent/formats/vdir/save-delete.scm
index 7de9379b..8fdc615e 100644
--- a/module/vcomponent/formats/vdir/save-delete.scm
+++ b/module/vcomponent/formats/vdir/save-delete.scm
@@ -13,7 +13,6 @@
   :use-module (hnh util)
   :use-module (hnh util uuid)
   :use-module ((hnh util path) :select (path-append))
-  :use-module ((hnh util exceptions) :select (assert))
   :use-module (vcomponent formats ical output)
   :use-module (vcomponent)
   :use-module ((hnh util io) :select (with-atomic-output-to-file))
@@ -23,7 +22,11 @@
 (define-public (save-event event)
   (define calendar (parent event))
 
-  (assert (eq? 'vdir (prop calendar '-X-HNH-SOURCETYPE)))
+  (unless (eq? 'vdir (prop calendar '-X-HNH-SOURCETYPE))
+    (scm-error 'wrong-type-arg "save-event"
+               "Can only save events belonging to vdir calendars. Calendar is of type ~s"
+               (list (prop calendar '-X-HNH-SOURCETYPE))
+               #f))
 
   (let* ((uid (or (prop event 'UID) (uuid))))
     (set! (prop event 'UID) uid
@@ -38,5 +41,9 @@
 
 (define-public (remove-event event)
   (define calendar (parent event))
-  (assert (eq? 'vdir (prop calendar '-X-HNH-SOURCETYPE)))
+  (unless (eq? 'vdir (prop calendar '-X-HNH-SOURCETYPE))
+    (scm-error 'wrong-type-arg "remove-event"
+               "Can only remove events belonging to vdir calendars. Calendar is of type ~s"
+               (list (prop calendar '-X-HNH-SOURCETYPE))
+               #f))
   (delete-file (prop event '-X-HNH-FILENAME)))