summaryrefslogtreecommitdiff
path: root/srfi/srfi-19.scm
diff options
context:
space:
mode:
Diffstat (limited to 'srfi/srfi-19.scm')
-rw-r--r--srfi/srfi-19.scm2
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))