cs: immutable string in seconds->date result

This commit is contained in:
Matthew Flatt 2019-01-19 13:50:25 -07:00
parent bf2fac74f2
commit dc58fccc4c

View File

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