From 3cb1c509d88db5cf7199bd25d4fcfc5821ad4818 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Fri, 8 Mar 2019 21:55:40 +0100 Subject: A whole bunch of macro rewrites! --- test.scm | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'test.scm') 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)) -- cgit v1.2.3