From 6ecb49f5104b89596eb1c5d8bb2c788cd6c39386 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Mon, 25 Feb 2019 23:56:01 +0100
Subject: Single elemnt lists in components now return their CAR.

---
 code.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'code.scm')

diff --git a/code.scm b/code.scm
index fa606185..ec92c347 100755
--- a/code.scm
+++ b/code.scm
@@ -18,8 +18,8 @@
 (for-each (lambda (ev)
             (vcomponent-set-attribute!
              ev "DTSTART"
-             (map (cut string->date <> "~Y~m~dT~H~M~S")
-                  (vcomponent-get-attribute ev "DTSTART"))))
+             ((cut string->date <> "~Y~m~dT~H~M~S")
+              (vcomponent-get-attribute ev "DTSTART"))))
           (vcomponent-children cal))
 
 (display (vcomponent-get-attribute (car (vcomponent-children cal))
-- 
cgit v1.2.3