diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-18 14:00:00 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-18 14:00:00 +0200 |
commit | c65263bc5efb09e9134fbce2cba6a550c592068d (patch) | |
tree | 077164c2f20f1e2d6fb7f4ab6bee92c3ab078b8f /module | |
parent | Add "unreachable". (diff) | |
download | calp-c65263bc5efb09e9134fbce2cba6a550c592068d.tar.gz calp-c65263bc5efb09e9134fbce2cba6a550c592068d.tar.xz |
Finish tests for (vcomponent duration).
Diffstat (limited to 'module')
-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))) |