aboutsummaryrefslogtreecommitdiff
path: root/module/vcomponent/recurrence
diff options
context:
space:
mode:
authorHugo Hörnquist <hugo@lysator.liu.se>2021-08-21 12:00:28 +0200
committerHugo Hörnquist <hugo@lysator.liu.se>2021-08-21 12:00:28 +0200
commit60c4bdce98c0163eb5bf6e7af45ce1cdd110f1bd (patch)
tree009675a426e893d3ac1b1652f3da1022e2a4935e /module/vcomponent/recurrence
parentRepair BYDAY output for ical serialization. (diff)
downloadcalp-60c4bdce98c0163eb5bf6e7af45ce1cdd110f1bd.tar.gz
calp-60c4bdce98c0163eb5bf6e7af45ce1cdd110f1bd.tar.xz
Improve error messages of rfc->datetime-weekday
Diffstat (limited to 'module/vcomponent/recurrence')
-rw-r--r--module/vcomponent/recurrence/parse.scm6
1 files changed, 5 insertions, 1 deletions
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