From 4a299cb7a232c94e1cefc5b51cb45f0d9ef4ca0f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Mon, 20 Jan 2020 22:43:46 +0100
Subject: Add normilze-date/tz.

---
 module/srfi/srfi-19/util.scm | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'module/srfi')

diff --git a/module/srfi/srfi-19/util.scm b/module/srfi/srfi-19/util.scm
index 96aa6a48..77e824ca 100644
--- a/module/srfi/srfi-19/util.scm
+++ b/module/srfi/srfi-19/util.scm
@@ -124,6 +124,10 @@ attribute set to 0. Can also be seen as \"Start of day\""
                         (make-time time-duration 0 7200))))
   (set (date-second next-date) 0))
 
+(define*-public (normalize-date/tz date #:optional (tz "Europe/Stockholm"))
+  (let-env ((TZ tz))
+           (-> date date->time-utc time-utc->date)))
+
 ;; date x (date → date) → stream<date>
 (define (date-increment-stream* start-date transfer-proc)
   (stream-iterate
-- 
cgit v1.2.3