diff options
| -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 |