suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

move the 'opt/c unknown contract' logging to the right place

Browse Source
This commit is contained in:
Robby Findler 2012-05-07 10:30:54 -05:00
parent 5996e8f480
commit dd764ca83d
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/racket/contract/private/opt-guts.rkt
View File

@ -158,6 +158,12 @@
;; opt/unknown : opt/i id id syntax ;; opt/unknown : opt/i id id syntax
;; ;;
(define (opt/unknown opt/i opt/info uctc) (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) (with-syntax ([(lift-var partial-var partial-flat-var)
(generate-temporaries '(lift partial partial-flat))] (generate-temporaries '(lift partial partial-flat))]
[val (opt/info-val opt/info)] [val (opt/info-val opt/info)]

6
collects/racket/contract/private/opt.rkt
View File

@ -172,12 +172,6 @@
(coerecable-constant? #'konst) (coerecable-constant? #'konst)
(opt-constant-contract (syntax->datum #'konst) opt/info)] (opt-constant-contract (syntax->datum #'konst) opt/info)]
[else [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)])) (opt/unknown opt/i opt/info stx)]))
;; top-level-unknown? : syntax -> boolean ;; top-level-unknown? : syntax -> boolean