From dd764ca83d7dbf7b1489a33d2b409d23cbeaef45 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 7 May 2012 10:30:54 -0500 Subject: [PATCH] move the 'opt/c unknown contract' logging to the right place --- collects/racket/contract/private/opt-guts.rkt | 6 ++++++ collects/racket/contract/private/opt.rkt | 6 ------ 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/collects/racket/contract/private/opt-guts.rkt b/collects/racket/contract/private/opt-guts.rkt index 12c32ead32..d99188c539 100644 --- a/collects/racket/contract/private/opt-guts.rkt +++ b/collects/racket/contract/private/opt-guts.rkt @@ -158,6 +158,12 @@ ;; opt/unknown : opt/i id id syntax ;; (define (opt/unknown opt/i opt/info uctc) + (log-info (format "warning in ~a:~a: opt/c doesn't know the contract ~s" + (syntax-source uctc) + (if (syntax-line uctc) + (format "~a:~a" (syntax-line uctc) (syntax-column uctc)) + (format ":~a" (syntax-position uctc))) + (syntax->datum uctc))) (with-syntax ([(lift-var partial-var partial-flat-var) (generate-temporaries '(lift partial partial-flat))] [val (opt/info-val opt/info)] diff --git a/collects/racket/contract/private/opt.rkt b/collects/racket/contract/private/opt.rkt index 39684e0259..896971fb25 100644 --- a/collects/racket/contract/private/opt.rkt +++ b/collects/racket/contract/private/opt.rkt @@ -172,12 +172,6 @@ (coerecable-constant? #'konst) (opt-constant-contract (syntax->datum #'konst) opt/info)] [else - (log-info (format "warning in ~a:~a: opt/c doesn't know the contract ~s" - (syntax-source stx) - (if (syntax-line stx) - (format "~a:~a" (syntax-line stx) (syntax-column stx)) - (format ":~a" (syntax-position stx))) - (syntax->datum stx))) (opt/unknown opt/i opt/info stx)])) ;; top-level-unknown? : syntax -> boolean