From f8707b6c64a9ff46781036f8c8e5e0a5ecfc7f92 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Fri, 22 May 2020 22:59:11 +0200
Subject: Remove commented procedure in-day?

---
 module/datetime/util.scm | 8 --------
 1 file changed, 8 deletions(-)

(limited to 'module/datetime')

diff --git a/module/datetime/util.scm b/module/datetime/util.scm
index 7f0ffb1f..a4ac8bcc 100644
--- a/module/datetime/util.scm
+++ b/module/datetime/util.scm
@@ -244,14 +244,6 @@
 (define-public (remove-day d)
   (date- d (date day: 1)))
 
-
-;; Checks if @var{datetime} is within the date
-;; given by @var{base-date}.
-;; TODO test time zones
-;; date x datetime → bool
-;; (define-public (in-day? base-date date/-time)
-;;   (date< base-date (as-date date/-time) (date+ base-date (date day: 1))))
-
 (define-public (in-date-range? start-date end-date)
   (lambda (date)
     (date<= start-date date end-date)))
-- 
cgit v1.2.3