suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

added new leap second

Browse Source 
svn: r379
This commit is contained in:
John Clements 2005-07-15 01:24:02 +00:00
parent 3cd3b0054c
commit e6cd4f26ff
1 changed files with 26 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
collects/srfi/19/time.ss
View File

@ -212,30 +212,33 @@
;; each entry is ( utc seconds since epoch . # seconds to add for tai ) ;; each entry is ( utc seconds since epoch . # seconds to add for tai )
;; note they go higher to lower, and end in 1972. ;; note they go higher to lower, and end in 1972.
;; added another one for 2006, based on random web-searching.
(define tm:leap-second-table (define tm:leap-second-table
'((915148800 . 32) '((1136073600 . 33)
(867715200 . 31) (915148800 . 32)
(820454400 . 30) (867715200 . 31)
(773020800 . 29) (820454400 . 30)
(741484800 . 28) (773020800 . 29)
(709948800 . 27) (741484800 . 28)
(662688000 . 26) (709948800 . 27)
(631152000 . 25) (662688000 . 26)
(567993600 . 24) (631152000 . 25)
(489024000 . 23) (567993600 . 24)
(425865600 . 22) (489024000 . 23)
(394329600 . 21) (425865600 . 22)
(362793600 . 20) (394329600 . 21)
(315532800 . 19) (362793600 . 20)
(283996800 . 18) (315532800 . 19)
(252460800 . 17) (283996800 . 18)
(220924800 . 16) (252460800 . 17)
(189302400 . 15) (220924800 . 16)
(157766400 . 14) (189302400 . 15)
(126230400 . 13) (157766400 . 14)
(94694400 . 12) (126230400 . 13)
(78796800 . 11) (94694400 . 12)
(63072000 . 10))) (78796800 . 11)
(63072000 . 10)))
(define (read-leap-second-table filename) (define (read-leap-second-table filename)
(set! tm:leap-second-table (tm:read-tai-utc-data filename)) (set! tm:leap-second-table (tm:read-tai-utc-data filename))