diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-23 23:46:57 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-23 23:46:57 +0200 |
| commit | 9c94e6ec731ce433aadf12eae22d50e8fec7a91b (patch) | |
| tree | dc3db263ba5c2afc725c5d163460597f233c1c8d /module/vcomponent | |
| parent | Reformat test/datetime.scm (diff) | |
| download | calp-9c94e6ec731ce433aadf12eae22d50e8fec7a91b.tar.gz calp-9c94e6ec731ce433aadf12eae22d50e8fec7a91b.tar.xz | |
Remove (add|remove)-day, and month[+-].
Procedures where overly specific, and doing it manually was almost no
more work.
Diffstat (limited to 'module/vcomponent')
| -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) |