diff options
Diffstat (limited to 'module/vcomponent/datetime.scm')
-rw-r--r-- | module/vcomponent/datetime.scm | 2 |
1 files changed, 1 insertions, 1 deletions
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) |