mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 19:50:24 +02:00
Code Activity

SRFI-19: Update the table of leap seconds.

Browse source 
* module/srfi/srfi-19.scm (leap-second-table): Update to include the
  most recent leap second.
This commit is contained in:
Mark H Weaver 2016-01-06 16:39:13 -05:00
parent 4d08e38e0a
commit b97bfa8be3
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
module/srfi/srfi-19.scm
View file

@ -1,7 +1,7 @@
;;; srfi-19.scm --- Time/Date Library ;;; srfi-19.scm --- Time/Date Library
;; Copyright (C) 2001, 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010, ;; Copyright (C) 2001-2003, 2005-2011, 2014, 2016
;; 2011, 2014 Free Software Foundation, Inc. ;; 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
@ -203,7 +203,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 leap-second-table (define leap-second-table
'((1341100800 . 35) '((1435708800 . 36)
(1341100800 . 35)
(1230768000 . 34) (1230768000 . 34)
(1136073600 . 33) (1136073600 . 33)
(915148800 . 32) (915148800 . 32)