From bfd24043285007ea23ae801c8784400091c2f3c0 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 30 Mar 2016 09:28:36 -0500 Subject: [PATCH] move late-neg projection warnings to the info level in the logger because right now they are too noisy to be useful to anyone other than contract system maintainers. Once the problems inside the contract library itself is fixed, consider moving these back to warning --- racket/collects/racket/contract/private/guts.rkt | 4 ++-- racket/collects/racket/contract/private/prop.rkt | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) 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))))