time-utc->date seems to think that a leap second occurs at a different
time in each time zone:
scheme@(guile-user)> (use-modules (srfi srfi-19))
scheme@(guile-user)> (define (tdate d) (write (list (date->string d "~4")
(date->string (time-utc->date (date->time-utc d) 3600) "~4"))) (newline))
sche
In SRFI-19, round-tripping some UTC dates through the time-utc structure
format, for the couple of seconds around a leap second:
scheme@(guile-user)> (use-modules (srfi srfi-19))
scheme@(guile-user)> (define (tdate d) (write (list (date->string d "~4")
(date->string (time-utc->date (date->time-ut