small fix in relop-length to enable the optimization

original commit: 587e0f4c01bf6bc187fc4e829fba9cc8ca7c38dd

LOG

@@ -1365,4 +1365,6 @@
     csug/control.stex
 - fix signatures of $annotation-options, $fasl-strip-options,
   $file-options, and $library-requirements-options
-    primdata.ss
+    primdata.ss
+- small fix in relop-length to enable the optimization
+    cpnanopass.ss

s/cpnanopass.ss

@@ -3718,8 +3718,8 @@
           (define RELOP< -2)
           (define RELOP<= -1)
           (define RELOP= 0)
-          (define RELOP>= 2)
-          (define RELOP> 1)
+          (define RELOP>= 1)
+          (define RELOP> 2)
           (define (mirror op) (fx- op))
           (define go
             (lambda (op e n)
@@ -3772,7 +3772,7 @@
           (define relop-length
             (case-lambda
               [(op e) (relop-length1 op e 0)]
-              [(op e1 e2) (or (relop-length2 op e1 e2) (relop-length2 (mirror op) e1 e2))])))
+              [(op e1 e2) (or (relop-length2 op e1 e2) (relop-length2 (mirror op) e2 e1))])))
         (define make-ftype-pointer-equal?
           (lambda (e1 e2)
             (bind #f (e1 e2)