diff options
| author | Neil Jerram <neil@ossau.uklinux.net> | 2002-02-22 23:14:38 +0000 |
|---|---|---|
| committer | Neil Jerram <neil@ossau.uklinux.net> | 2002-02-22 23:14:38 +0000 |
| commit | cd328b4fef97572b4521ba92ced5e6ddeb11ae44 (patch) | |
| tree | 1e6c50d1f15d363863af4d2a43d93eab26096c08 /srfi/srfi-19.scm | |
| parent | bf9b86fc598e2218cfd7c17fdf5a425df56f228d (diff) | |
| download | guile-cd328b4fef97572b4521ba92ced5e6ddeb11ae44.tar.gz | |
* Fix a typo that crept in with the scm_X_t to scm_t_X rename.
* Partial fix for date-week-number bug.
Diffstat (limited to 'srfi/srfi-19.scm')
| -rw-r--r-- | srfi/srfi-19.scm | 2 |
1 files changed, 1 insertions, 1 deletions
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)) |