dmbcs/guile
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Changes from arch/CVS synchronization

Browse source
This commit is contained in:
Ludovic Courtès 2007-02-04 21:16:31 +00:00
commit 2656b1b208
2 changed files with 12 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
srfi/ChangeLog
View file

@ -1,3 +1,11 @@
2007-02-04 Ludovic Courtès <ludovic.courtes@laas.fr>
* srfi/srfi-19.scm (priv:locale-abbr-weekday): Add one to the day
number before invoking `locale-day-short'. Failing to do so
resulted in days shifted by one in the result of `date->string',
or in the failure of `date->string' when the day is zero.
(priv:locale-long-weekday): Likewise.
2007-01-31 Ludovic Courtès <ludovic.courtes@laas.fr>
* srfi-19.scm: Use `(ice-9 i18n)'.

8
srfi/srfi-19.scm
View file

@ -926,10 +926,10 @@
(define (priv:last-n-digits i n)
(abs (remainder i (expt 10 n))))
(define priv:locale-abbr-weekday locale-day-short)
(define priv:locale-long-weekday locale-day)
(define priv:locale-abbr-month locale-month-short)
(define priv:locale-long-month locale-month)
(define (priv:locale-abbr-weekday n) (locale-day-short (+ 1 n)))
(define (priv:locale-long-weekday n) (locale-day (+ 1 n)))
(define priv:locale-abbr-month locale-month-short)
(define priv:locale-long-month locale-month)
(define (priv:date-reverse-lookup needle haystack-ref haystack-len
same?)