From 60c4bdce98c0163eb5bf6e7af45ce1cdd110f1bd Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sat, 21 Aug 2021 12:00:28 +0200
Subject: Improve error messages of rfc->datetime-weekday

---
 module/vcomponent/recurrence/parse.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/module/vcomponent/recurrence/parse.scm b/module/vcomponent/recurrence/parse.scm
index ba2a5583..a1bf3eaa 100644
--- a/module/vcomponent/recurrence/parse.scm
+++ b/module/vcomponent/recurrence/parse.scm
@@ -22,7 +22,11 @@
     [(TH) thu]
     [(FR) fri]
     [(SA) sat]
-    [else => (lambda (d) (error "No such day ~a" d))]))
+    [else => (lambda (d)
+               (scm-error 'misc-error "rfc->datetime-weekday"
+                          "No such day ~a (~s)"
+                          (list d (symbol->string d))
+                          #f))]))
 
 ;; @example
 ;; <weekday> ∈ weekdays
-- 
cgit v1.2.3