diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-17 01:11:41 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-17 01:11:41 +0200 |
| commit | 4f12dc6ad49cd260e2f61345031551f018759a37 (patch) | |
| tree | 564521fb132285893fc0e8484c1971e70e7d4d77 | |
| parent | Resolve TODO about datetime output. (diff) | |
| download | calp-4f12dc6ad49cd260e2f61345031551f018759a37.tar.gz calp-4f12dc6ad49cd260e2f61345031551f018759a37.tar.xz | |
Fix parse error on duration.
| -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)) |