From 1a18c30f06b97392414a8a69f04b52918bdfe554 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Fri, 1 Dec 2023 23:13:32 +0100 Subject: Repair format tests. The test have been really broken for a while, since the return type of `parameters` changed somewhere along the line. The serializers are now updated to the new API, and the tests updated to compare components correctly! --- module/vcomponent/formats/xcal/output.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'module/vcomponent/formats/xcal/output.scm') diff --git a/module/vcomponent/formats/xcal/output.scm b/module/vcomponent/formats/xcal/output.scm index 6d5e0656..a5f8a934 100644 --- a/module/vcomponent/formats/xcal/output.scm +++ b/module/vcomponent/formats/xcal/output.scm @@ -111,7 +111,7 @@ (match-lambda [(? (compose internal-field? car)) #f] - [(key vlines ...) + [(key (vlines ...)) (remove null? `(,(xml xcal (downcase-symbol key)) ,(parameters-tag (reduce assq-merge @@ -120,7 +120,7 @@ ,@(for vline in vlines (vline->value-tag vline))))] - [(key . vline) + [(key vline) (remove null? `(,(xml xcal (downcase-symbol key)) ,(parameters-tag (parameters vline)) -- cgit v1.2.3