diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2020-02-18 01:16:30 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2020-02-18 01:16:30 +0100 |
| commit | 8c82f44c534abc57ce33d9c972d73ae9d7281709 (patch) | |
| tree | c9c4127a5479163546fb937449dda8a72b9e9796 /module/srfi | |
| parent | Add some TODO's. (diff) | |
| download | calp-8c82f44c534abc57ce33d9c972d73ae9d7281709.tar.gz calp-8c82f44c534abc57ce33d9c972d73ae9d7281709.tar.xz | |
Store TZ in sensible way when parsing datetimes.
Diffstat (limited to 'module/srfi')
| -rw-r--r-- | module/srfi/srfi-19/alt.scm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/module/srfi/srfi-19/alt.scm b/module/srfi/srfi-19/alt.scm index ec1144d2..26bb03af 100644 --- a/module/srfi/srfi-19/alt.scm +++ b/module/srfi/srfi-19/alt.scm @@ -544,12 +544,11 @@ minute: (s->n str 2 4) second: (s->n str 4 6))) -(define-public (parse-datetime str) +(define*-public (parse-datetime str optional: tz) (let* (((datestr timestr) (string-split str #\T))) (datetime date: (parse-date datestr) time: (parse-time timestr) - tz: (if (string=? "Z" (string-take-right str 1)) - 'Z #f)))) + tz: tz))) (define-public (current-date) |