Changeset 12943 in project


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

More to it

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

Legend:

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

    r12941 r12943  
    14521452  (let ([dif (tm:date-compare 'date-compare dat1 dat2)])
    14531453    (cond
    1454       [(fx< dif 0)  -1]
    1455       [(fx> dif 0)  1]
     1454      [(fx> 0 dif)  -1]
     1455      [(fx< 0 dif)  1]
    14561456      [else         0] ) ) )
    14571457
     
    14601460
    14611461(define (date<? dat1 dat2)
    1462   (fx< 0 (tm:date-compare 'date<? dat1 dat2)) )
     1462  (fx> 0 (tm:date-compare 'date<? dat1 dat2)) )
    14631463
    14641464(define (date<=? dat1 dat2)
    1465   (fx<= 0 (tm:date-compare 'date<=? dat1 dat2)) )
     1465  (fx>= 0 (tm:date-compare 'date<=? dat1 dat2)) )
    14661466
    14671467(define (date>? dat1 dat2)
    1468   (fx> 0 (tm:date-compare 'date>? dat1 dat2)) )
     1468  (fx< 0 (tm:date-compare 'date>? dat1 dat2)) )
    14691469
    14701470(define (date>=? dat1 dat2)
    1471   (fx>= 0 (tm:date-compare 'date>=? dat1 dat2)) )
     1471  (fx<= 0 (tm:date-compare 'date>=? dat1 dat2)) )
    14721472
    14731473;; Date Arithmetic
  • release/3/srfi-19/trunk/srfi-19-core.scm

    r12941 r12943  
    14071407  (let ([dif (tm:date-compare 'date-compare dat1 dat2)])
    14081408    (cond
    1409       [(fx< dif 0)  -1]
    1410       [(fx> dif 0)  1]
     1409      [(fx> 0 dif)  -1]
     1410      [(fx< 0 dif)  1]
    14111411      [else         0] ) ) )
    14121412
     
    14151415
    14161416(define (date<? dat1 dat2)
    1417   (fx< 0 (tm:date-compare 'date<? dat1 dat2)) )
     1417  (fx> 0 (tm:date-compare 'date<? dat1 dat2)) )
    14181418
    14191419(define (date<=? dat1 dat2)
    1420   (fx<= 0 (tm:date-compare 'date<=? dat1 dat2)) )
     1420  (fx>= 0 (tm:date-compare 'date<=? dat1 dat2)) )
    14211421
    14221422(define (date>? dat1 dat2)
    1423   (fx> 0 (tm:date-compare 'date>? dat1 dat2)) )
     1423  (fx< 0 (tm:date-compare 'date>? dat1 dat2)) )
    14241424
    14251425(define (date>=? dat1 dat2)
    1426   (fx>= 0 (tm:date-compare 'date>=? dat1 dat2)) )
     1426  (fx<= 0 (tm:date-compare 'date>=? dat1 dat2)) )
    14271427
    14281428;; Date Arithmetic
Note: See TracChangeset for help on using the changeset viewer.