aboutsummaryrefslogtreecommitdiff
path: root/test.scm
diff options
context:
space:
mode:
authorHugo Hörnquist <hugo@lysator.liu.se>2019-03-08 21:55:40 +0100
committerHugo Hörnquist <hugo@lysator.liu.se>2019-03-08 21:55:40 +0100
commit3cb1c509d88db5cf7199bd25d4fcfc5821ad4818 (patch)
tree8d25c94689bf926918a9f4d09f966fa1dfbf68d8 /test.scm
parentSimplify srfi-19 setters. (diff)
downloadcalp-3cb1c509d88db5cf7199bd25d4fcfc5821ad4818.tar.gz
calp-3cb1c509d88db5cf7199bd25d4fcfc5821ad4818.tar.xz
A whole bunch of macro rewrites!
Diffstat (limited to 'test.scm')
-rwxr-xr-xtest.scm3
1 files changed, 1 insertions, 2 deletions
diff --git a/test.scm b/test.scm
index 40e2c321..87d0f9b2 100755
--- a/test.scm
+++ b/test.scm
@@ -13,8 +13,7 @@
(define cal (make-vcomponent "testcal/repeating-event.ics"))
-(define ev (find (lambda (ev) (eq? 'VEVENT (type ev)))
- (children cal)))
+(define ev (car (children cal 'VEVENT)))
(define ev-copy (copy-vcomponent ev))