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

more compiler/cm log message cleanup

Browse Source
This commit is contained in:
Robby Findler 2016-04-10 21:20:25 -05:00
parent d83fbf81f3
commit 3636e35480
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
racket/collects/compiler/cm.rkt
View File

@ -50,7 +50,7 @@
(struct compile-event (timestamp path action) #:prefab) (struct compile-event (timestamp path action) #:prefab)
(define (log-compile-event path action) (define (log-compile-event path action)
(when (log-level? cm-logger 'info 'compiler/cm) (when (log-level? cm-logger 'info 'compiler/cm)
(log-message cm-logger 'info (format "~a: ~a" action path) (log-message cm-logger 'info (format "~a~a: ~a" (get-indent-string) action path)
(compile-event (current-inexact-milliseconds) path action)))) (compile-event (current-inexact-milliseconds) path action))))
(define manager-compile-notify-handler (make-parameter void)) (define manager-compile-notify-handler (make-parameter void))
@ -187,13 +187,17 @@
(unless (or (eq? t void) (unless (or (eq? t void)
(and (equal? t default-manager-trace-handler) (and (equal? t default-manager-trace-handler)
(not (log-level? cm-logger 'debug)))) (not (log-level? cm-logger 'debug))))
(t (string-append (build-string (indent) (t (string-append (get-indent-string)
(λ (x)
(if (= 2 (modulo x 3))
#\|
#\space)))
(apply format fmt args)))))) (apply format fmt args))))))
(define (get-indent-string)
(build-string (indent)
(λ (x)
(if (and (= 2 (modulo x 3))
(not (= x (- (indent) 1))))
#\|
#\space))))
(define (get-deps code path) (define (get-deps code path)
(define ht (define ht
(let loop ([code code] [ht (hash)]) (let loop ([code code] [ht (hash)])