contract-stronger: swap order of cases

Check that the input to the default `contract-stronger?` is not an impersonator before calling `equal?` on it
2017-10-02 02:11:49 -04:00 · 2017-10-02 02:11:49 -04:00 · c02d91d174
commit c02d91d174
parent ed5911e531
1 changed files with 3 additions and 3 deletions
--- a/racket/collects/racket/contract/private/prop.rkt
+++ b/racket/collects/racket/contract/private/prop.rkt
@ -118,9 +118,9 @@
 (define trail (make-parameter #f))
 (define (contract-struct-stronger? a b)
  (cond
-    [(and (equal? a b)
-          (or (flat-contract-struct? a)
-              (chaperone-contract-struct? a)))
+    [(and (or (flat-contract-struct? a)
+              (chaperone-contract-struct? a))
+          (equal? a b))
     #t]
    [else
     (define prop (contract-struct-property a))