diff options
Diffstat (limited to 'srfi')
-rw-r--r-- | srfi/ChangeLog | 6 | ||||
-rw-r--r-- | srfi/srfi-19.scm | 2 |
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)) |