diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2020-01-20 22:43:46 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2020-01-20 22:43:46 +0100 |
| commit | 4a299cb7a232c94e1cefc5b51cb45f0d9ef4ca0f (patch) | |
| tree | c78d50f60ea18512a7e4fc8ff548cefaf7111f41 /module/srfi | |
| parent | Fix termios tests. (diff) | |
| download | calp-4a299cb7a232c94e1cefc5b51cb45f0d9ef4ca0f.tar.gz calp-4a299cb7a232c94e1cefc5b51cb45f0d9ef4ca0f.tar.xz | |
Add normilze-date/tz.
Diffstat (limited to 'module/srfi')
| -rw-r--r-- | module/srfi/srfi-19/util.scm | 4 |
1 files changed, 4 insertions, 0 deletions
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 |