From b7cee3dba696e30eb737568c19decfb1b659beb3 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sun, 28 Aug 2022 22:04:24 +0200
Subject: Rewrote make-routes to use define-syntax.

This is the first step into adding extra functionallity, since I now
want have to worry about how namespace pollution works.
---
 tests/test/annoying-events.scm | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

(limited to 'tests/test')

diff --git a/tests/test/annoying-events.scm b/tests/test/annoying-events.scm
index 673a4b49..4e5aa07d 100644
--- a/tests/test/annoying-events.scm
+++ b/tests/test/annoying-events.scm
@@ -17,12 +17,9 @@
 ;; TODO remove this
 (define* (event key: summary dtstart dtend)
   (define ev (make-vcomponent 'VEVENT))
-  (set! (prop ev 'SUMMARY)
-    summary
-    (prop ev 'DTSTART)
-    dtstart
-    (prop ev 'DTEND)
-    dtend)
+  (set! (prop ev 'SUMMARY) summary
+        (prop ev 'DTSTART) dtstart
+        (prop ev 'DTEND) dtend)
   ev)
 
 (define start
-- 
cgit v1.2.3