fixed a bug where and/c (when given ho contracts) would check them in the wrong order

collects/racket/contract/private/guts.rkt

@@ -216,8 +216,7 @@
             [(null? projs) proj]
             [else (loop (cdr projs)
                         (let ([f (car projs)])
-                          (λ (v) (proj (f v)))))]))))))
-
+                          (λ (v) (f (proj v)))))]))))))
 
 (define-struct and/c (ctcs)
   #:omit-define-syntaxes

collects/tests/racket/contract-test.rktl

@@ -3220,8 +3220,8 @@
                  'pos
                  'neg)
        1)
-      x)
-   (reverse '(1 3 4 2)))
+      (reverse x))
+   '(3 1 2 4))
 
   
 ;