From c00650b222887ddb900b048f48bd66d0420ee746 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Tue, 19 May 2020 17:06:58 +0200 Subject: minor cleanup. --- module/vcomponent/parse/component.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'module/vcomponent/parse') diff --git a/module/vcomponent/parse/component.scm b/module/vcomponent/parse/component.scm index f8677a19..c2d297fd 100644 --- a/module/vcomponent/parse/component.scm +++ b/module/vcomponent/parse/component.scm @@ -149,7 +149,7 @@ (define key (vline-key vline)) ;; Which types are allowed to be given multiple times - (if (memv (vline-key vline) '(EXDATE ATTENDEE)) + (if (memv key '(EXDATE ATTENDEE)) (aif (attr* (car stack) key) (set! (attr* (car stack) key) (cons vline it)) (set! (attr* (car stack) key) (list vline))) -- cgit v1.2.3