diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-25 14:50:37 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-25 22:32:49 +0200 |
| commit | 65fe05255f47f34516b8cc0228cdf8942b7d4969 (patch) | |
| tree | 83b23617dbd8f88cf066b34d03e4b93f487c156b | |
| parent | Slightly improve display of EXDATES. (diff) | |
| download | calp-65fe05255f47f34516b8cc0228cdf8942b7d4969.tar.gz calp-65fe05255f47f34516b8cc0228cdf8942b7d4969.tar.xz | |
Datetime+ now retains zoneinfo.
| -rw-r--r-- | module/datetime.scm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/module/datetime.scm b/module/datetime.scm index f78b7d69..d8a61af0 100644 --- a/module/datetime.scm +++ b/module/datetime.scm @@ -560,12 +560,15 @@ ;; NOTE that base is re-normalized, but change isn't. This is due to base ;; hopefully being a real date, but change just being a difference. (define-public (datetime+ base change) - (let ((base (get-datetime base))) + (let (; (base (get-datetime base)) + ) (let* ((time overflow (time+ (get-time% base) (get-time% change)))) (datetime date: (date+ (get-date base) (get-date change) (date day: overflow)) - time: time)))) + time: time + tz: (get-timezone base) + )))) ;; (define (datetime->srfi-19-date date) ;; ((@ (srfi srfi-19) make-date) |