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

Thanks.  Fix pushed.


On Mon, Nov 28, 2022 at 10:21 AM Jens Thiele <[email protected]> wrote:

> 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
>

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