From 359b471e2671d04096bd9605dc23fc89aa00374a Mon Sep 17 00:00:00 2001 From: Neil Jerram Date: Sat, 23 Feb 2002 22:24:24 +0000 Subject: [PATCH] * Fix date-week-number bug in srfi-19.scm. --- srfi/ChangeLog | 5 +++++ srfi/srfi-19.scm | 8 +++++--- 2 files changed, 10 insertions(+), 3 deletions(-) diff --git a/srfi/ChangeLog b/srfi/ChangeLog index f9d8659f2..1ae9ac95d 100644 --- a/srfi/ChangeLog +++ b/srfi/ChangeLog @@ -1,3 +1,8 @@ +2002-02-23 Neil Jerram + + * srfi-19.scm (priv:month-assoc): Correct numbers so that they + match the expectations of priv:year-day. + 2002-02-22 Neil Jerram * srfi-19.scm (priv:year-day): Index into priv:month-assoc using diff --git a/srfi/srfi-19.scm b/srfi/srfi-19.scm index f1ad0e7cc..5f21847b4 100644 --- a/srfi/srfi-19.scm +++ b/srfi/srfi-19.scm @@ -797,9 +797,11 @@ (define (leap-year? date) (priv:leap-year? (date-year date))) -(define priv:month-assoc '((1 . 31) (2 . 59) (3 . 90) (4 . 120) - (5 . 151) (6 . 181) (7 . 212) (8 . 243) - (9 . 273) (10 . 304) (11 . 334) (12 . 365))) +;; Map 1-based month number M to number of days in the year before the +;; start of month M (in a non-leap year). +(define priv:month-assoc '((1 . 0) (2 . 31) (3 . 59) (4 . 90) + (5 . 120) (6 . 151) (7 . 181) (8 . 212) + (9 . 243) (10 . 273) (11 . 304) (12 . 334))) (define (priv:year-day day month year) (let ((days-pr (assoc month priv:month-assoc)))