From 81fc535b2b8cb2a726c8514f2ae91e913ac157c7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Wed, 12 Apr 2023 11:18:25 +0200
Subject: UNFINISHED work on data stores and formats.

---
 module/vcomponent/formats/ical.scm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'module/vcomponent/formats/ical.scm')

diff --git a/module/vcomponent/formats/ical.scm b/module/vcomponent/formats/ical.scm
index 294642de..dddca946 100644
--- a/module/vcomponent/formats/ical.scm
+++ b/module/vcomponent/formats/ical.scm
@@ -10,9 +10,8 @@
 
 
 (define (serialize component port)
-  (display (component->ical-string component)
-           port))
+  (with-output-to-port port
+    (lambda () (component->ical-string component))))
 
 (define (deserialize port)
-  (parse-calendar port)
-  )
+  (parse-calendar port))
-- 
cgit v1.2.3