diff options
Diffstat (limited to '')
-rwxr-xr-x | test.scm | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -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)) |