diff options
author | Kevin Ryde <user42@zip.com.au> | 2005-08-18 23:43:37 +0000 |
---|---|---|
committer | Kevin Ryde <user42@zip.com.au> | 2005-08-18 23:43:37 +0000 |
commit | 73e2a8d1e0b1e1be044f8bd93b13608fc2b7592f (patch) | |
tree | c8c0071de34e2cba00e901b94cc655606edc1196 | |
parent | d279764421769e18787e1419846b01c2b2569fa7 (diff) | |
download | guile-73e2a8d1e0b1e1be044f8bd93b13608fc2b7592f.tar.gz |
(priv:leap-second-table): Add new 2005 leap second.
-rw-r--r-- | srfi/srfi-19.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/srfi/srfi-19.scm b/srfi/srfi-19.scm index 62758add3..57040f1ae 100644 --- a/srfi/srfi-19.scm +++ b/srfi/srfi-19.scm @@ -1,6 +1,6 @@ ;;; srfi-19.scm --- Time/Date Library -;; Copyright (C) 2001, 2002, 2003 Free Software Foundation, Inc. +;; Copyright (C) 2001, 2002, 2003, 2005 Free Software Foundation, Inc. ;; ;; This library is free software; you can redistribute it and/or ;; modify it under the terms of the GNU Lesser General Public @@ -248,7 +248,8 @@ ;; each entry is (tai seconds since epoch . # seconds to subtract for utc) ;; note they go higher to lower, and end in 1972. (define priv:leap-second-table - '((915148800 . 32) + '((1136073600 . 33) + (915148800 . 32) (867715200 . 31) (820454400 . 30) (773020800 . 29) |