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

tweak planet logging so the "PLaneT: " prefix is more consistently there

Browse Source
This commit is contained in:
Robby Findler 2011-08-12 08:19:34 -05:00
parent b300bae75c
commit 1553658369
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/planet/private/planet-shared.rkt
View File

@ -494,10 +494,11 @@ Various common pieces of code that both the client and server need to access
(define planet-log
(let ([planet-logger (make-logger 'PLaneT (current-logger))])
(λ (str . fmt)
(define formatted-str (apply format str fmt))
(parameterize ([current-logger planet-logger])
(log-info (apply format str fmt))
(log-info formatted-str)
(when (planet-logging-to-stdout)
(apply fprintf (current-output-port) str fmt)
(fprintf (current-output-port) "PLaneT: ~a" formatted-str)
(newline (current-output-port)))))))
;; note that this function assumes that 'f' prints line-by-line