From a3f0a3ffb9838b86dffcd9b66a91242a6de72a49 Mon Sep 17 00:00:00 2001
From: sperber <sperber>
Date: Mon, 26 Dec 2005 10:44:34 +0000
Subject: [PATCH] Add new leap second, submitted by SRFI author.

---
 scheme/srfi/srfi-19.scm | 47 +++++++++++++++++++++--------------------
 1 file changed, 24 insertions(+), 23 deletions(-)

diff --git a/scheme/srfi/srfi-19.scm b/scheme/srfi/srfi-19.scm
index 34bc4c6..839bf95 100644
--- a/scheme/srfi/srfi-19.scm
+++ b/scheme/srfi/srfi-19.scm
@@ -181,29 +181,30 @@
 ;; each entry is ( utc seconds since epoch . # seconds to add for tai )
 ;; note they go higher to lower, and end in 1972.
 (define tm:leap-second-table
-  '((915148800 . 32)
-    (867715200 . 31)
-    (820454400 . 30)
-    (773020800 . 29)
-    (741484800 . 28)
-    (709948800 . 27)
-    (662688000 . 26)
-    (631152000 . 25)
-    (567993600 . 24)
-    (489024000 . 23)
-    (425865600 . 22)
-    (394329600 . 21)
-    (362793600 . 20)
-    (315532800 . 19)
-    (283996800 . 18)
-    (252460800 . 17)
-    (220924800 . 16)
-    (189302400 . 15)
-    (157766400 . 14)
-    (126230400 . 13)
-    (94694400  . 12)
-    (78796800  . 11)
-    (63072000  . 10)))
+ '((1136073600 . 33)
+  (915148800 . 32)
+  (867715200 . 31)
+  (820454400 . 30)
+  (773020800 . 29)
+  (741484800 . 28)
+  (709948800 . 27)
+  (662688000 . 26)
+  (631152000 . 25)
+  (567993600 . 24)
+  (489024000 . 23)
+  (425865600 . 22)
+  (394329600 . 21)
+  (362793600 . 20)
+  (315532800 . 19)
+  (283996800 . 18)
+  (252460800 . 17)
+  (220924800 . 16)
+  (189302400 . 15)
+  (157766400 . 14)
+  (126230400 . 13)
+  (94694400 . 12)
+  (78796800 . 11)
+  (63072000 . 10)))
 
 (define (read-leap-second-table filename)
   (set! tm:leap-second-table (tm:read-tai-utc-data filename))