From 58b2524b89d4db614aadbd8497b6e791e0d999cf Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Fri, 8 Mar 2019 14:49:57 +0100
Subject: Move stuff between modules.

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

(limited to 'srfi')

diff --git a/srfi/srfi-19/util.scm b/srfi/srfi-19/util.scm
index 2d709d55..81dd7ec5 100644
--- a/srfi/srfi-19/util.scm
+++ b/srfi/srfi-19/util.scm
@@ -26,7 +26,7 @@
 
 (define (drop-time date)
   "Returns a copy of date; with the hour, minute, second and nanosecond
-attribute set to 0."
+attribute set to 0. Can also be seen as \"Start of day\""
   (set-fields date
               ((date-hour) 0)
               ((date-minute) 0)
@@ -44,7 +44,7 @@ attribute set to 0."
   (add-duration time (make-time time-duration 0 (* amount unit))))
 
 (define (today? time)
-  (let* ((now (date->time-utc (current-date)))
+  (let* ((now (date->time-utc (drop-time (current-date))))
          (then (time-add now 1 days)))
     (and (time<=? now time)
          (time<=? time then))))
-- 
cgit v1.2.3