From 13a5eb7e088415a3688483ebd1f32c5db5feaa5f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Thu, 25 Apr 2019 19:06:45 +0200
Subject: Change how in-date-range? does it's calculation.

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

diff --git a/module/srfi/srfi-19/util.scm b/module/srfi/srfi-19/util.scm
index ea8e2f7f..06d03344 100644
--- a/module/srfi/srfi-19/util.scm
+++ b/module/srfi/srfi-19/util.scm
@@ -104,13 +104,10 @@ attribute set to 0. Can also be seen as \"Start of day\""
    (drop-time start-day)))
 
 (define-public (in-date-range? start-date end-date)
-  (format (current-error-port) "Start: ~a~%End: ~a~%"
-          (date->string start-date) (date->string end-date))
   (lambda (date)
     (let ((time (date->time-utc date)))
-      (timespan-overlaps?
-       (date->time-utc start-date) (date->time-utc end-date)
-       time time))))
+      (and (time<=? (date->time-utc start-date) time)
+           (time<=? time (date->time-utc end-date))))))
 
 (define-public (time-min a b)
   (if (time<? a b) a b))
-- 
cgit v1.2.3