diff options
author | Andy Wingo <wingo@pobox.com> | 2009-01-12 21:45:37 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2009-01-12 21:45:37 +0100 |
commit | 78bae3d6fa7c8aa6951cf9fc31707b06d80a920a (patch) | |
tree | 3a63b06685de12bdb841f170107f96611d93fe9c /module/srfi/srfi-19.scm | |
parent | 7bd5f2913d5eab83f3432c413458cc18658ce457 (diff) | |
download | guile-78bae3d6fa7c8aa6951cf9fc31707b06d80a920a.tar.gz |
fix mismerge on srfi-19.scm
* module/srfi/srfi-19.scm (priv:locale-abbr-weekday->index): Whoops, fix
broken manual merge on srfi-19.scm.
Diffstat (limited to 'module/srfi/srfi-19.scm')
-rw-r--r-- | module/srfi/srfi-19.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/srfi/srfi-19.scm b/module/srfi/srfi-19.scm index 13b134876..29c604fcd 100644 --- a/module/srfi/srfi-19.scm +++ b/module/srfi/srfi-19.scm @@ -936,10 +936,10 @@ (else (loop (+ index 1)))))) (define (priv:locale-abbr-weekday->index string) - (priv:date-reverse-lookup string priv:locale-abbr-weekday 7 string=?)) + (priv:date-reverse-lookup string locale-day-short 7 string=?)) (define (priv:locale-long-weekday->index string) - (priv:date-reverse-lookup string priv:locale-long-weekday 7 string=?)) + (priv:date-reverse-lookup string locale-day 7 string=?)) (define (priv:locale-abbr-month->index string) (priv:date-reverse-lookup string priv:locale-abbr-month 12 string=?)) |