/[guile]/guile/guile-core/srfi/srfi-19.scm
ViewVC logotype

Diff of /guile/guile-core/srfi/srfi-19.scm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.13 by ttn, Tue Nov 6 22:21:29 2001 UTC revision 1.14 by ossau, Fri Feb 22 23:14:38 2002 UTC
# Line 802  Line 802 
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))

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26