diff options
Diffstat (limited to 'module/srfi/srfi-19.scm')
-rw-r--r-- | module/srfi/srfi-19.scm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/module/srfi/srfi-19.scm b/module/srfi/srfi-19.scm index 570f933ca..d809ac1ec 100644 --- a/module/srfi/srfi-19.scm +++ b/module/srfi/srfi-19.scm @@ -1268,6 +1268,8 @@ (set! offset (+ offset (* (char->int ch) 60 60)))) (let ((ch (read-char port))) + (if (eqv? ch #\:) + (set! ch (read-char port))) (if (eof-object? ch) (time-error 'string->date 'bad-date-template-string (list "Invalid time zone number" ch))) |