struct tm year is offset by 1900

This commit is contained in:
Alex Shinn 2016-09-28 23:23:22 +09:00
parent 7b0cca9403
commit 6b5c2c3d0b

View file

@ -33,7 +33,7 @@
(define time-hour date-hour) (define time-hour date-hour)
(define time-day date-day) (define time-day date-day)
(define time-month date-month) (define time-month date-month)
(define time-year date-year) (define (time-year x) (- (date-year x) 1900))
(define time-day-of-week date-week-day) (define time-day-of-week date-week-day)
(define time-day-of-year date-year-day) (define time-day-of-year date-year-day)
(define (seconds->time seconds) (define (seconds->time seconds)