diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-08-21 12:00:28 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-08-21 12:00:28 +0200 |
commit | 60c4bdce98c0163eb5bf6e7af45ce1cdd110f1bd (patch) | |
tree | 009675a426e893d3ac1b1652f3da1022e2a4935e /module/vcomponent/recurrence | |
parent | Repair BYDAY output for ical serialization. (diff) | |
download | calp-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.scm | 6 |
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 |