diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2007-02-04 21:16:31 +0000 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2007-02-04 21:16:31 +0000 |
| commit | 2656b1b208ab8f2ab96b4e27edb7a9096acc2060 (patch) | |
| tree | f4fccac8f4ee2595bd7bba12aa885d94f0c4be21 /srfi | |
| parent | a2f00b9b36930797bf9e19c4a00fd089b0be3c9b (diff) | |
| download | guile-2656b1b208ab8f2ab96b4e27edb7a9096acc2060.tar.gz | |
Changes from arch/CVS synchronization
Diffstat (limited to 'srfi')
| -rw-r--r-- | srfi/ChangeLog | 8 | ||||
| -rw-r--r-- | srfi/srfi-19.scm | 8 |
2 files changed, 12 insertions, 4 deletions
diff --git a/srfi/ChangeLog b/srfi/ChangeLog index 40e306902..fbc5e5d0f 100644 --- a/srfi/ChangeLog +++ b/srfi/ChangeLog @@ -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)'. diff --git a/srfi/srfi-19.scm b/srfi/srfi-19.scm index a8daa26d1..1b71a16bd 100644 --- a/srfi/srfi-19.scm +++ b/srfi/srfi-19.scm @@ -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?) |