summaryrefslogtreecommitdiff
path: root/module/srfi/srfi-19.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2009-01-12 21:45:37 +0100
committerAndy Wingo <wingo@pobox.com>2009-01-12 21:45:37 +0100
commit78bae3d6fa7c8aa6951cf9fc31707b06d80a920a (patch)
tree3a63b06685de12bdb841f170107f96611d93fe9c /module/srfi/srfi-19.scm
parent7bd5f2913d5eab83f3432c413458cc18658ce457 (diff)
downloadguile-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.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=?))