diff --git a/racket/collects/racket/contract/private/guts.rkt b/racket/collects/racket/contract/private/guts.rkt index bf6b8157ce..ed92d7c453 100644 --- a/racket/collects/racket/contract/private/guts.rkt +++ b/racket/collects/racket/contract/private/guts.rkt @@ -686,7 +686,7 @@ (cond [(contract-struct-late-neg-projection ctc) => values] [else - (log-racket/contract-warning "no late-neg-projection for ~s" ctc) + (log-racket/contract-info "no late-neg-projection for ~s" ctc) (cond [(contract-struct-projection ctc) => @@ -723,7 +723,7 @@ (define warn-about-val-first? (make-parameter #t)) (define (maybe-warn-about-val-first ctc) (when (warn-about-val-first?) - (log-racket/contract-warning + (log-racket/contract-info "building val-first-projection of contract ~s for~a" ctc (build-context)))) diff --git a/racket/collects/racket/contract/private/prop.rkt b/racket/collects/racket/contract/private/prop.rkt index 4ecf2b4dfa..6d72833995 100644 --- a/racket/collects/racket/contract/private/prop.rkt +++ b/racket/collects/racket/contract/private/prop.rkt @@ -291,7 +291,7 @@ (unless get-late-neg-projection (unless first-order? - (log-racket/contract-warning + (log-racket/contract-info "no late-neg-projection passed to ~s~a" proc-name (build-context)))) @@ -464,7 +464,7 @@ (unless late-neg-projection (unless first-order? - (log-racket/contract-warning + (log-racket/contract-info "no late-neg-projection passed to ~s~a" proc-name (build-context))))