From 3525de48273eb5fe5f8b112ba12976bb3888829e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Mon, 4 May 2020 21:29:03 +0200
Subject: Tests run again.

---
 module/vcomponent/recurrence/parse.scm | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/module/vcomponent/recurrence/parse.scm b/module/vcomponent/recurrence/parse.scm
index c72ec367..1c611890 100644
--- a/module/vcomponent/recurrence/parse.scm
+++ b/module/vcomponent/recurrence/parse.scm
@@ -55,9 +55,12 @@
                  `((,key) (if (not ,guard)
                               (begin (warning
                                       "RRULE guard failed for key ~a~%    guard: ~a : ~s"
-                                      ,key ,guard (map (lambda (o) (if (procedure? o)
-                                                                  (procedure-name o)
-                                                                  o)) ,@guard))
+                                      (quote ,key)
+                                      (quote ,guard)
+                                      (map (lambda (o) (if (procedure? o)
+                                                      (procedure-name o)
+                                                      o))
+                                           (list ,@guard)))
                                      ,@else-clause)
                               (begin ,@body))))
                 ((key body ...)
-- 
cgit v1.2.3