/[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.18 by mvo, Sat Apr 5 19:15:01 2003 UTC revision 1.19 by kryde, Fri Aug 22 22:28:53 2003 UTC
# Line 821  Line 821 
821      (modulo (- day-of-week-starting-week fdweek-day)      (modulo (- day-of-week-starting-week fdweek-day)
822              7)))              7)))
823    
824    ;; The "-1" here is a fix for the reference implementation, to make a new
825    ;; week start on the given day-of-week-starting-week.  date-year-day returns
826    ;; a day starting from 1 for 1st Jan.
827    ;;
828  (define (date-week-number date day-of-week-starting-week)  (define (date-week-number date day-of-week-starting-week)
829    (quotient (- (date-year-day date)    (quotient (- (date-year-day date)
830                   1
831                 (priv:days-before-first-week  date day-of-week-starting-week))                 (priv:days-before-first-week  date day-of-week-starting-week))
832              7))              7))
833    

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

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