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

Don't track provenance at the log entry level.

Browse Source 
Not necessary anymore.

original commit: 96078c9da637d6e2df215fc9cd0f5d5032c4437f
This commit is contained in:
Vincent St-Amour 2012-11-25 18:43:38 -05:00
parent cdee1cc411
commit 5111bed780
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/typed-racket/optimizer/logging.rkt
View File

@ -24,7 +24,7 @@
(define (anyone-listening?) (log-level? TR-logger TR-logging-level))
;; msg is for consumption by the DrRacket tool
(struct log-entry (kind msg stx located-stx pos provenance) #:prefab)
(struct log-entry (kind msg stx located-stx pos) #:prefab)
;; for optimizations only (not missed optimizations, those are below)
(struct opt-log-entry log-entry () #:prefab)
@ -32,8 +32,7 @@
(define (log-optimization kind msg stx)
(when (anyone-listening?)
(emit-log-message
(opt-log-entry kind msg stx (locate-stx stx) (syntax-position stx)
'typed-racket))))
(opt-log-entry kind msg stx (locate-stx stx) (syntax-position stx)))))
;;--------------------------------------------------------------------
@ -62,7 +61,6 @@
(emit-log-message
(missed-opt-log-entry kind msg
stx (locate-stx stx) (syntax-position stx)
'typed-racket
irritants '() 1)))))
@ -78,8 +76,7 @@
(when (anyone-listening?)
(emit-log-message
;; no actual message, since it's not meant for user consumption
(info-log-entry kind "" stx (locate-stx stx) (syntax-position stx)
'typed-racket))))
(info-log-entry kind "" stx (locate-stx stx) (syntax-position stx)))))
;;--------------------------------------------------------------------