From 8c82f44c534abc57ce33d9c972d73ae9d7281709 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Tue, 18 Feb 2020 01:16:30 +0100 Subject: Store TZ in sensible way when parsing datetimes. --- module/srfi/srfi-19/alt.scm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'module/srfi') 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) -- cgit v1.2.3