From ac374b555accaf7a83424c241f38f997dc6a2068 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sun, 24 May 2020 22:28:13 +0200
Subject: Timespan-overlaps? single moment and tests.

---
 module/datetime/util.scm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'module/datetime')

diff --git a/module/datetime/util.scm b/module/datetime/util.scm
index 1bbde87d..6b0a8411 100644
--- a/module/datetime/util.scm
+++ b/module/datetime/util.scm
@@ -211,6 +211,9 @@
 ;; |  ||s2| : |s1||  | : |  ||  | : |  ||  | : |  ||  | :
 ;;     |  | : |  |     : |  ||  | : |  ||  | : |  ||  | :     |s2|
 ;;     |  | : |  |     : |  |     :     |  | :          :     |  |
+;;
+;; Infinitely short ---+|s2| : |s1|+--- : two instants don't overlap
+;; events, overlap   s1      :      s2  :
 ;; @end verbatim
 ;; 
 ;; E is covered by both case A and B.
@@ -226,11 +229,11 @@
         (date/-time<? s2-begin s1-end))
 
    ;; C
-   (and (date/-time<? s1-begin s2-begin)
+   (and (date/-time<=? s1-begin s2-begin)
         (date/-time<? s2-end s1-end))
 
    ;; D
-   (and (date/-time<? s2-begin s1-begin)
+   (and (date/-time<=? s2-begin s1-begin)
         (date/-time<? s1-end s2-end))))
 
 (define-public (add-day d)
-- 
cgit v1.2.3