summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--module/srfi/srfi-19.scm4
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=?))