Changeset 12943 in project

Timestamp:

01/06/09 20:14:52 (11 years ago)

Author:

Kon Lovett

Message:

More to it

Location:

release/3/srfi-19

Files:

• tags/2.7.1/srfi-19-core.scm (modified) (2 diffs)
• trunk/srfi-19-core.scm (modified) (2 diffs)

release/3/srfi-19/tags/2.7.1/srfi-19-core.scm

@@ -1452 +1452 @@
   (let ([dif (tm:date-compare 'date-compare dat1 dat2)])
     (cond
-      [(fx< dif 0)  -1]
-      [(fx> dif 0)  1]
+      [(fx> 0 dif)  -1]
+      [(fx< 0 dif)  1]
       [else         0] ) ) )
 
@@ -1460 +1460 @@
 
 (define (date<? dat1 dat2)
-  (fx< 0 (tm:date-compare 'date<? dat1 dat2)) )
+  (fx> 0 (tm:date-compare 'date<? dat1 dat2)) )
 
 (define (date<=? dat1 dat2)
-  (fx<= 0 (tm:date-compare 'date<=? dat1 dat2)) )
+  (fx>= 0 (tm:date-compare 'date<=? dat1 dat2)) )
 
 (define (date>? dat1 dat2)
-  (fx> 0 (tm:date-compare 'date>? dat1 dat2)) )
+  (fx< 0 (tm:date-compare 'date>? dat1 dat2)) )
 
 (define (date>=? dat1 dat2)
-  (fx>= 0 (tm:date-compare 'date>=? dat1 dat2)) )
+  (fx<= 0 (tm:date-compare 'date>=? dat1 dat2)) )
 
 ;; Date Arithmetic

release/3/srfi-19/trunk/srfi-19-core.scm

@@ -1407 +1407 @@
   (let ([dif (tm:date-compare 'date-compare dat1 dat2)])
     (cond
-      [(fx< dif 0)  -1]
-      [(fx> dif 0)  1]
+      [(fx> 0 dif)  -1]
+      [(fx< 0 dif)  1]
       [else         0] ) ) )
 
@@ -1415 +1415 @@
 
 (define (date<? dat1 dat2)
-  (fx< 0 (tm:date-compare 'date<? dat1 dat2)) )
+  (fx> 0 (tm:date-compare 'date<? dat1 dat2)) )
 
 (define (date<=? dat1 dat2)
-  (fx<= 0 (tm:date-compare 'date<=? dat1 dat2)) )
+  (fx>= 0 (tm:date-compare 'date<=? dat1 dat2)) )
 
 (define (date>? dat1 dat2)
-  (fx> 0 (tm:date-compare 'date>? dat1 dat2)) )
+  (fx< 0 (tm:date-compare 'date>? dat1 dat2)) )
 
 (define (date>=? dat1 dat2)
-  (fx>= 0 (tm:date-compare 'date>=? dat1 dat2)) )
+  (fx<= 0 (tm:date-compare 'date>=? dat1 dat2)) )
 
 ;; Date Arithmetic