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

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

@ -212,8 +212,11 @@
;; 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)
(915148800 . 32)
(867715200 . 31) (867715200 . 31)
(820454400 . 30) (820454400 . 30)
(773020800 . 29) (773020800 . 29)