diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-11-09 13:59:55 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-11-09 13:59:55 +0100 |
commit | a658779710cf02200c4a1972d23a73be21f23c09 (patch) | |
tree | 12eda4765c79ce63bc790463470f974e8969e34f /module/srfi/srfi-19 | |
parent | Fix leap-seconds in normalize-date*. (diff) | |
download | calp-a658779710cf02200c4a1972d23a73be21f23c09.tar.gz calp-a658779710cf02200c4a1972d23a73be21f23c09.tar.xz |
Fii normalize-date* from previous commit.
Diffstat (limited to '')
-rw-r--r-- | module/srfi/srfi-19/util.scm | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/module/srfi/srfi-19/util.scm b/module/srfi/srfi-19/util.scm index ff23dbb9..67d407f8 100644 --- a/module/srfi/srfi-19/util.scm +++ b/module/srfi/srfi-19/util.scm @@ -108,11 +108,10 @@ attribute set to 0. Can also be seen as \"Start of day\"" ;; hack to handle leap seconds. NOTE this should be reworked. (define-public (normalize-date* date) (define next-date - (date-second - (time-utc->date - (add-duration (date->time-utc date) - (make-time time-duration 0 10))) - (set next-date 0)))) + (time-utc->date + (add-duration (date->time-utc date) + (make-time time-duration 0 10)))) + (set (date-second next-date) 0)) ;; Returns a stream of date objects, one day appart, staring from start-day. (define-public (day-stream start-day) |