diff options
Diffstat (limited to '')
-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) |