diff options
Diffstat (limited to '')
-rw-r--r-- | module/vcomponent/duration.scm | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/module/vcomponent/duration.scm b/module/vcomponent/duration.scm index af1d95d5..7a047544 100644 --- a/module/vcomponent/duration.scm +++ b/module/vcomponent/duration.scm @@ -110,12 +110,15 @@ [(H) `(hour: ,n)] [(M) `(minute: ,n)] [(S) `(second: ,n)] - [else (scm-error 'misc-error "parse-duration" - "Invalid key ~a" type #f)]))] + [else (unreachable + "parse-duration" + "Invalid key ~a" + type)]))] [a - (scm-error 'misc-error "parse-duration" - "~s not on expected form ((number <num>) type)" - (list a) #f)]) + (unreachable + "parse-duration" + "~s not on expected form ((number <num>) type)" + (list a))]) (context-flatten (lambda (x) (and (pair? (car x)) (eq? 'number (caar x)))) (cdr (member "P" tree))) |