Fix a bug in comparison shortcuts

See [this comment](racket/drracket@5c7c19f#r2040841364).

Author: jackfirth

default-recommendations/comparison-shortcuts-test.rkt

@@ -14,24 +14,24 @@ header:
 
 test: "comparison of difference to zero refactorable to direct > comparison"
 - (> (- x y) 0)
-- (<= 0 (- x y))
+- (< 0 (- x y))
 - (> x y)
 
 
 test: "comparison of difference to zero refactorable to direct < comparison"
 - (< (- x y) 0)
-- (>= 0 (- x y))
+- (> 0 (- x y))
 - (< x y)
 
 
 test: "comparison of difference to zero refactorable to direct >= comparison"
-- (< 0 (- x y))
+- (<= 0 (- x y))
 - (>= (- x y) 0)
 - (>= x y)
 
 
 test: "comparison of difference to zero refactorable to direct <= comparison"
-- (> 0 (- x y))
+- (>= 0 (- x y))
 - (<= (- x y) 0)
 - (<= x y)
 

default-recommendations/comparison-shortcuts.rkt

@@ -25,10 +25,10 @@
   (pattern (< (- x y) 0) #:with direct-comparison #'(< x y))
   (pattern (>= (- x y) 0) #:with direct-comparison #'(>= x y))
   (pattern (<= (- x y) 0) #:with direct-comparison #'(<= x y))
-  (pattern (> 0 (- x y)) #:with direct-comparison #'(<= x y))
-  (pattern (< 0 (- x y)) #:with direct-comparison #'(>= x y))
-  (pattern (>= 0 (- x y)) #:with direct-comparison #'(< x y))
-  (pattern (<= 0 (- x y)) #:with direct-comparison #'(> x y)))
+  (pattern (> 0 (- x y)) #:with direct-comparison #'(< x y))
+  (pattern (< 0 (- x y)) #:with direct-comparison #'(> x y))
+  (pattern (>= 0 (- x y)) #:with direct-comparison #'(<= x y))
+  (pattern (<= 0 (- x y)) #:with direct-comparison #'(>= x y)))
 
 
 (define-refactoring-rule comparison-of-difference-and-zero-to-direct-comparison