diff options
Diffstat (limited to '')
-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) |