leap seconds (Was: Re: ext/srfi/srfi-19.scm license considered non-free by debian)

Jens Thiele <[email protected]> writes:

> just found this change between
> ext/srfi/srfi-19.scm and https://srfi.schemers.org/srfi-19/srfi-19.scm
> related to leap seconds:
>
> diff --git a/ext/srfi/srfi-19.scm b/ext/srfi/srfi-19.scm
> index 00fcdd626..38d666236 100644
> --- a/ext/srfi/srfi-19.scm
> +++ b/ext/srfi/srfi-19.scm
> @@ -107,7 +107,8 @@
>  ;; note they go higher to lower, and end in 1972.
>  ;; See srfi-19/read-tai.scm to update this list.
>  (define-constant tm:leap-second-table
> -  '((1435708800 . 36)
> +  '((1483228800 . 37)
> +    (1435708800 . 36)
>      (1341100800 . 35)
>      (1230768000 . 34)
>      (1136073600 . 33)

And maybe this should also be reflected in r7rs-setup.scm?
or is it intended to stay?

diff --git a/lib/r7rs-setup.scm b/lib/r7rs-setup.scm
index fd0204c4a..8582d0815 100644
--- a/lib/r7rs-setup.scm
+++ b/lib/r7rs-setup.scm
@@ -473,7 +473,7 @@
 
 (define-module scheme.time
   (export current-jiffy jiffies-per-second current-second)
-  (define-constant tai-utc 35) ; TAI is ahead of this amount as of 2014
+  (define-constant tai-utc 37) ; TAI is ahead of this amount as of 2014
   (define-constant tai-off 8)  ; TAI epoch is ahead of this amount
   ;; We reduce resolution in 32bit platform so that we have more time
   ;; before current-jiffy falls out of fixnum range.  On 32bit machines,

and the documentation should be updated, too?

diff --git a/doc/modr7rs.texi b/doc/modr7rs.texi
index 1408f5635..955b70453 100644
--- a/doc/modr7rs.texi
+++ b/doc/modr7rs.texi
@@ -1750,15 +1750,15 @@ R7RSプログラムからは、
 Returns a real number represents the number of seconds since
 the midnight of Jan. 1, 1970 TAI (which is 23:59:52, Dec 31, 1969 UTC, that
 is, -8 seconds before Unix Epoch.)  Number of leap seconds were
-inserted since then, and as of 2014, UTC is 35 seconds behind TAI.  That means
-the number returned is 27 seconds larger than the unix time,
+inserted since then, and as of 2022, UTC is 37 seconds behind TAI.  That means
+the number returned is 29 seconds larger than the unix time,
 which is returned from @code{sys-time} or @code{sys-gettimeofday}.
 @c JP
 国際原子時(TAI)の1970年1月1日0時から現在までの経過秒数を実数で返します。
 (これは、Unix Epochの8秒前、国際標準時(UTC)で1969年12月31日23:59:52に相当します)。
-この起点以来、閏秒がしばしば挿入されてきて、2014年現在、UTCはTAIより35秒遅れています。
+この起点以来、閏秒がしばしば挿入されてきて、2022年現在、UTCはTAIより37秒遅れています。
 すなわち、この手続きが返す秒数は、@code{sys-time}や@code{sys-gettimeofday}が
-返すUnix timeより27秒大きい値です。
+返すUnix timeより29秒大きい値です。
 @c COMMON
 
 @c EN


_______________________________________________
Gauche-devel mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/gauche-devel