/[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.14 by ossau, Fri Feb 22 23:14:38 2002 UTC revision 1.15 by ossau, Sat Feb 23 22:24:24 2002 UTC
# Line 797  Line 797 
797  (define (leap-year? date)  (define (leap-year? date)
798    (priv:leap-year? (date-year date)))    (priv:leap-year? (date-year date)))
799    
800  (define  priv:month-assoc '((1 . 31)  (2 . 59)   (3 . 90)   (4 . 120)  ;; Map 1-based month number M to number of days in the year before the
801                              (5 . 151) (6 . 181)  (7 . 212)  (8 . 243)  ;; start of month M (in a non-leap year).
802                              (9 . 273) (10 . 304) (11 . 334) (12 . 365)))  (define priv:month-assoc '((1 . 0)   (2 . 31)   (3 . 59)   (4 . 90)
803                               (5 . 120) (6 . 151)  (7 . 181)  (8 . 212)
804                               (9 . 243) (10 . 273) (11 . 304) (12 . 334)))
805    
806  (define (priv:year-day day month year)  (define (priv:year-day day month year)
807    (let ((days-pr (assoc month priv:month-assoc)))    (let ((days-pr (assoc month priv:month-assoc)))

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

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