From 9c94e6ec731ce433aadf12eae22d50e8fec7a91b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Thu, 23 Jun 2022 23:46:57 +0200
Subject: Remove (add|remove)-day, and month[+-].

Procedures where overly specific, and doing it manually was almost no
more work.
---
 module/vcomponent/datetime.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'module/vcomponent')

diff --git a/module/vcomponent/datetime.scm b/module/vcomponent/datetime.scm
index 73d74363..5c83f279 100644
--- a/module/vcomponent/datetime.scm
+++ b/module/vcomponent/datetime.scm
@@ -59,7 +59,7 @@ Event must have the DTSTART and DTEND protperty set."
 (define (event-contains? ev date/-time)
   "Does event overlap the date that contains time."
   (let* ((start (as-date date/-time))
-         (end (add-day start)))
+         (end (date+ start (date day: 1))))
     (event-overlaps? ev start end)))
 
 (define (event-zero-length? ev)
-- 
cgit v1.2.3