From 65fe05255f47f34516b8cc0228cdf8942b7d4969 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sat, 25 Apr 2020 14:50:37 +0200 Subject: Datetime+ now retains zoneinfo. --- module/datetime.scm | 7 +++++-- 1 file 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) -- cgit v1.2.3