summaryrefslogtreecommitdiff
path: root/srfi
diff options
context:
space:
mode:
Diffstat (limited to 'srfi')
-rw-r--r--srfi/ChangeLog6
-rw-r--r--srfi/srfi-19.scm2
2 files changed, 7 insertions, 1 deletions
diff --git a/srfi/ChangeLog b/srfi/ChangeLog
index b201d96c9..f9d8659f2 100644
--- a/srfi/ChangeLog
+++ b/srfi/ChangeLog
@@ -1,3 +1,9 @@
+2002-02-22 Neil Jerram <neil@ossau.uklinux.net>
+
+ * srfi-19.scm (priv:year-day): Index into priv:month-assoc using
+ month number, not day number. (Thanks to Sébastien de Menten de
+ Horne for reporting the problem.)
+
2002-02-11 Marius Vollmer <marius.vollmer@uni-dortmund.de>
* srfi-14.c, srfi-4.c: Use scm_gc_malloc/scm_malloc and
diff --git a/srfi/srfi-19.scm b/srfi/srfi-19.scm
index 9b8418a99..f1ad0e7cc 100644
--- a/srfi/srfi-19.scm
+++ b/srfi/srfi-19.scm
@@ -802,7 +802,7 @@
(9 . 273) (10 . 304) (11 . 334) (12 . 365)))
(define (priv:year-day day month year)
- (let ((days-pr (assoc day priv:month-assoc)))
+ (let ((days-pr (assoc month priv:month-assoc)))
(if (not days-pr)
(priv:error 'date-year-day 'invalid-month-specification month))
(if (and (priv:leap-year? year) (> month 2))