diff options
Diffstat (limited to 'module/vcomponent/formats/xcal/parse.scm')
| -rw-r--r-- | module/vcomponent/formats/xcal/parse.scm | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/module/vcomponent/formats/xcal/parse.scm b/module/vcomponent/formats/xcal/parse.scm index 7dee8d67..b21e72b5 100644 --- a/module/vcomponent/formats/xcal/parse.scm +++ b/module/vcomponent/formats/xcal/parse.scm @@ -81,10 +81,10 @@ bymonthday byyearday byweekno bymonth bysetpos) (string->number value)) - (else (throw - 'key-error + (else (scm-error 'key-error "handle-value" "Invalid type ~a, with value ~a" - type value)))))) + (list type value) + #f)))))) ;; freq until count interval wkst @@ -108,9 +108,11 @@ byyearday byweekno bymonth bysetpos) (list (symbol->keyword key) (map (lambda (v) (parse-value-of-that-type key v)) - (map car values))) - ) - (else (throw 'error)))))))))] + (map car values)))) + (else (scm-error 'misc-error "handle-value" + "Invalid key ~s" + (list key) + #f)))))))))] [(time) (parse-iso-time (car value))] |