diff options
Diffstat (limited to '')
-rw-r--r-- | module/vcomponent/datetime.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/vcomponent/datetime.scm b/module/vcomponent/datetime.scm index e427b088..4e3cfbe6 100644 --- a/module/vcomponent/datetime.scm +++ b/module/vcomponent/datetime.scm @@ -7,7 +7,7 @@ #:export (parse-datetime event-overlaps? overlapping? - event-in? + event-contains? ev-time<?) ) @@ -33,7 +33,7 @@ Event must have the DTSTART and DTEND attribute set." (attr event-b 'DTSTART) (attr event-b 'DTEND))) -(define (event-in? ev time) +(define (event-contains? ev time) "Does event overlap the date that contains time." (let* ((date (time-utc->date time)) (start (date->time-utc (drop-time date))) |