fix random-generation for and/c

2016-01-05 09:14:15 -06:00 · 2016-01-05 09:14:15 -06:00 · c7726e23ec
commit c7726e23ec
parent 3f4dcb8e87
1 changed files with 3 additions and 2 deletions
--- a/racket/collects/racket/contract/private/misc.rkt
+++ b/racket/collects/racket/contract/private/misc.rkt
@ -204,8 +204,9 @@
 (define (and/c-check-nonneg ctc pred)
  (define sub-contracts (base-and/c-ctcs ctc))
  (cond
-    [(pairwise-stronger-contracts? (list pred (not/c negative?))
-                                   sub-contracts)
+    [(pairwise-stronger-contracts?
+      (list (coerce-contract 'and/c-check-nonneg pred) (not/c negative?))
+      sub-contracts)
     (define go (hash-ref predicate-generator-table pred))
     (λ (fuel)
       (λ ()