diff options
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)) |