From e822f7b81245c919eda8bd8ad4b482df075e0508 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Fri, 24 Jan 2020 20:21:41 +0100
Subject: Start of new date structures.

---
 module/srfi/srfi-19/util.scm | 28 ----------------------------
 1 file changed, 28 deletions(-)

(limited to 'module/srfi/srfi-19/util.scm')

diff --git a/module/srfi/srfi-19/util.scm b/module/srfi/srfi-19/util.scm
index 77e824ca..f5bd1964 100644
--- a/module/srfi/srfi-19/util.scm
+++ b/module/srfi/srfi-19/util.scm
@@ -73,34 +73,6 @@ attribute set to 0. Can also be seen as \"Start of day\""
 (define (remove-day time)
   (add-duration time (make-duration (- (* 60 60 24)))))
 
-;; @verbatim
-;;    A          B          C          D          E         ¬F
-;; |s1|     :     |s2| : |s1|     :     |s2| :          : |s1|
-;; |  |     :     |  | : |  ||s2| : |s1||  | : |s1||s2| : |  |
-;; |  ||s2| : |s1||  | : |  ||  | : |  ||  | : |  ||  | :
-;;     |  | : |  |     : |  ||  | : |  ||  | : |  ||  | :     |s2|
-;;     |  | : |  |     : |  |     :     |  | :          :     |  |
-;; @end verbatim
-;; 
-;; E is covered by both case A and B.
-(define-public (timespan-overlaps? s1-begin s1-end s2-begin s2-end)
-  "Return whetever or not two timespans overlap."
-  (or
-   ;; A
-   (and (time<? s2-begin s1-end)
-        (time<? s1-begin s2-end))
-
-   ;; B
-   (and (time<? s1-begin s2-end)
-        (time<? s2-begin s1-end))
-
-   ;; C
-   (and (time<? s1-begin s2-begin)
-        (time<? s2-end s1-end))
-
-   ;; D
-   (and (time<? s2-begin s1-begin)
-        (time<? s1-end s2-end))))
 
 (define-public (normalize-date date)
   (time-utc->date (date->time-utc date)
-- 
cgit v1.2.3