aboutsummaryrefslogtreecommitdiff
path: root/code.scm
diff options
context:
space:
mode:
authorHugo Hörnquist <hugo@hornquist.se>2019-02-25 23:56:01 +0100
committerHugo Hörnquist <hugo@hornquist.se>2019-02-25 23:56:35 +0100
commit6ecb49f5104b89596eb1c5d8bb2c788cd6c39386 (patch)
tree4a382d3f33064ad381ec833b069a058b31de761d /code.scm
parentStore static reference to SCM version of vcomponent. (diff)
downloadcalp-6ecb49f5104b89596eb1c5d8bb2c788cd6c39386.tar.gz
calp-6ecb49f5104b89596eb1c5d8bb2c788cd6c39386.tar.xz
Single elemnt lists in components now return their CAR.
Diffstat (limited to 'code.scm')
-rwxr-xr-xcode.scm4
1 files changed, 2 insertions, 2 deletions
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))