Fix XREPL logging printer to handle new logger name field.

Merge to 5.3.2.
This commit is contained in:
Sam Tobin-Hochstadt 2013-01-11 17:21:34 -05:00
parent 9b1b15d110
commit 2a1f70264c

View File

@ -1189,7 +1189,7 @@
(λ () (λ ()
(let loop () (let loop ()
(match (sync r) (match (sync r)
[(vector l m v) [(vector l m v name)
(display (format "; [~a] ~a~a\n" (display (format "; [~a] ~a~a\n"
l m (if v (format " ~.s" v) ""))) l m (if v (format " ~.s" v) "")))
(flush-output)]) (flush-output)])