diff options
-rw-r--r-- | module/vcomponent/duration.scm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/module/vcomponent/duration.scm b/module/vcomponent/duration.scm index 42bb4ca4..061cc50a 100644 --- a/module/vcomponent/duration.scm +++ b/module/vcomponent/duration.scm @@ -62,8 +62,12 @@ [(M) `(minute: ,n)] [(S) `(second: ,n)] [else (error "Invalid key")]))] - [#\T '()]) - (cdr (member "P" tree)))))) + [a + (error "~a not on form ((number <num>) type)" a)]) + (context-flatten (lambda (x) (and (pair? (car x)) + (eq? 'number (caar x)))) + (cdr (member "P" tree))) + )))) (apply duration (cons* sign: sign (let loop ((rem lst)) |