diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-08-28 22:04:24 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-09-18 22:46:18 +0200 |
| commit | b7cee3dba696e30eb737568c19decfb1b659beb3 (patch) | |
| tree | f3d2a408b24c1dfea58b22625a947c66ba20888d /tests/test | |
| parent | Minor cleanup in TS files. (diff) | |
| download | calp-b7cee3dba696e30eb737568c19decfb1b659beb3.tar.gz calp-b7cee3dba696e30eb737568c19decfb1b659beb3.tar.xz | |
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.
Diffstat (limited to 'tests/test')
| -rw-r--r-- | tests/test/annoying-events.scm | 9 |
1 files changed, 3 insertions, 6 deletions
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 |