cs: unbreal seconds->date

This commit is contained in:
Matthew Flatt 2019-01-20 09:33:05 -07:00
parent dee990ff18
commit 53d4cdd2c7

View File

@ -131,6 +131,8 @@
(chez:date-dst? d)
(date-zone-offset d)
(date-nanosecond d)
(or (string->immutable-string (date-zone-name d)) utc-string)))]))
(or (let ([n (date-zone-name d)])
(and n (string->immutable-string n)))
utc-string)))]))
(define utc-string (string->immutable-string "UTC"))