From d74deac624de47c672e81c33db5fc39f244ec0ca Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Fri, 17 Jul 2020 23:58:20 +0200
Subject: Properties now return alist instead of hashmap.

---
 module/output/ical.scm | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

(limited to 'module/output/ical.scm')

diff --git a/module/output/ical.scm b/module/output/ical.scm
index d0dcd98c..9e147316 100644
--- a/module/output/ical.scm
+++ b/module/output/ical.scm
@@ -133,21 +133,19 @@
 
 (define-public (component->ical-string component)
   (format #t "BEGIN:~a\r\n" (type component))
-  ;; TODO this leaks internal information,
-  ;; write a better API for vcomponent.
-  (hash-for-each
+  (for-each
    ;; Special cases depending on key.
    ;; Value formatting is handled in @code{value-format}.
-   (match-lambda*
+   (match-lambda
 
      [(? (compose internal-field? car)) 'noop]
 
-     [(key (vlines ...))
+     [(key vlines ...)
       (for vline in vlines
            (display (vline->string vline))
            (display "\r\n"))]
 
-     [(key vline)
+     [(key . vline)
       (display (vline->string vline))
       (display "\r\n")])
    (properties component))
-- 
cgit v1.2.3