Changeset 12941 in project


Ignore:
Timestamp:
01/06/09 20:04:56 (11 years ago)
Author:
Kon Lovett
Message:

Bug fix for date compare - year twice but day 0.

Location:
release/3/srfi-19
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/3/srfi-19/tags/2.7.1/srfi-19-core.scm

    r12745 r12941  
    14321432      (if (not (fx= 0 dif))
    14331433        dif
    1434         (let ([dif (fx- (%date-year dat1) (%date-year dat2))])
     1434        (let ([dif (fx- (%date-month dat1) (%date-month dat2))])
    14351435          (if (not (fx= 0 dif))
    14361436            dif
    1437             (let ([dif (fx- (%date-month dat1) (%date-month dat2))])
     1437            (let ([dif (fx- (%date-day dat1) (%date-day dat2))])
    14381438              (if (not (fx= 0 dif))
    14391439                dif
  • release/3/srfi-19/trunk/srfi-19-core.scm

    r12808 r12941  
    13871387      (if (not (fx= 0 dif))
    13881388        dif
    1389         (let ([dif (fx- (%date-year dat1) (%date-year dat2))])
     1389        (let ([dif (fx- (%date-month dat1) (%date-month dat2))])
    13901390          (if (not (fx= 0 dif))
    13911391            dif
    1392             (let ([dif (fx- (%date-month dat1) (%date-month dat2))])
     1392            (let ([dif (fx- (%date-day dat1) (%date-day dat2))])
    13931393              (if (not (fx= 0 dif))
    13941394                dif
Note: See TracChangeset for help on using the changeset viewer.