802 |
(9 . 273) (10 . 304) (11 . 334) (12 . 365))) |
(9 . 273) (10 . 304) (11 . 334) (12 . 365))) |
803 |
|
|
804 |
(define (priv:year-day day month year) |
(define (priv:year-day day month year) |
805 |
(let ((days-pr (assoc day priv:month-assoc))) |
(let ((days-pr (assoc month priv:month-assoc))) |
806 |
(if (not days-pr) |
(if (not days-pr) |
807 |
(priv:error 'date-year-day 'invalid-month-specification month)) |
(priv:error 'date-year-day 'invalid-month-specification month)) |
808 |
(if (and (priv:leap-year? year) (> month 2)) |
(if (and (priv:leap-year? year) (> month 2)) |