mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 21:40:33 +02:00
Code Activity

(priv:leap-second-table): Add new 2005 leap second.

Browse source
This commit is contained in:
Kevin Ryde 2005-08-18 23:43:37 +00:00
parent d279764421
commit 73e2a8d1e0
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
srfi/srfi-19.scm
View file

@ -1,6 +1,6 @@
;;; srfi-19.scm --- Time/Date Library ;;; 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 ;; This library is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public ;; 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) ;; each entry is (tai seconds since epoch . # seconds to subtract for utc)
;; note they go higher to lower, and end in 1972. ;; note they go higher to lower, and end in 1972.
(define priv:leap-second-table (define priv:leap-second-table
'((915148800 . 32) '((1136073600 . 33)
(915148800 . 32)
(867715200 . 31) (867715200 . 31)
(820454400 . 30) (820454400 . 30)
(773020800 . 29) (773020800 . 29)