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

Fix OC for new logging system.

Browse Source 
original commit: 39100bd3e3a085b8911b9e3018c78e62dbe6d82b
This commit is contained in:
Vincent St-Amour 2012-09-07 17:23:26 -04:00
parent 2cff6508c9
commit d234a65876
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -14,15 +14,16 @@
;;--------------------------------------------------------------------
(define TR-logging-level 'debug)
(define TR-logger (make-logger 'TR-optimizer (current-logger)))
(define (emit-log-message l)
(log-message (current-logger) TR-logging-level
(log-message TR-logger TR-logging-level
(format-log-entry l)
(cons optimization-log-key l)))
;; producing logs can be expensive, don't do it if no-one's listening
;; to the logs
(define (anyone-listening?) (log-level? (current-logger) TR-logging-level))
(define (anyone-listening?) (log-level? TR-logger TR-logging-level))
;; to identify log messages that come from the optimizer
;; to be stored in the data section of log messages