diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-08 14:49:57 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-08 14:49:57 +0100 |
| commit | 58b2524b89d4db614aadbd8497b6e791e0d999cf (patch) | |
| tree | eba5a635e302b998751810920184fa4c72b25be7 /srfi | |
| parent | Fix error when looking at cloned events. (diff) | |
| download | calp-58b2524b89d4db614aadbd8497b6e791e0d999cf.tar.gz calp-58b2524b89d4db614aadbd8497b6e791e0d999cf.tar.xz | |
Move stuff between modules.
Diffstat (limited to 'srfi')
| -rw-r--r-- | srfi/srfi-19/util.scm | 4 |
1 files changed, 2 insertions, 2 deletions
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)))) |