diff options
-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=?)) |