From 4f12dc6ad49cd260e2f61345031551f018759a37 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Fri, 17 Jul 2020 01:11:41 +0200
Subject: Fix parse error on duration.

---
 module/vcomponent/duration.scm | 8 ++++++--
 1 file 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))
-- 
cgit v1.2.3