diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-22 22:59:11 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-22 22:59:11 +0200 |
| commit | f8707b6c64a9ff46781036f8c8e5e0a5ecfc7f92 (patch) | |
| tree | 5f894b93b20d78d6c72c943ce5c4732f4c69962f /module/datetime | |
| parent | Minor coment cleanup. (diff) | |
| download | calp-f8707b6c64a9ff46781036f8c8e5e0a5ecfc7f92.tar.gz calp-f8707b6c64a9ff46781036f8c8e5e0a5ecfc7f92.tar.xz | |
Remove commented procedure in-day?
Diffstat (limited to 'module/datetime')
| -rw-r--r-- | module/datetime/util.scm | 8 |
1 files changed, 0 insertions, 8 deletions
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))) |