mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 16:50:21 +02:00
Code Activity

* Fix two typos that crept in with the scm_X_t to scm_t_X rename.

Browse source 
* Partial fix for date-week-number bug.
This commit is contained in:
Neil Jerram 2002-02-22 23:04:15 +00:00
parent 89255ff476
commit 0f6e56f7e2
8 changed files with 26 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

2
srfi/srfi-19.scm
View file

@ -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))