Fix XREPL logging printer to handle new logger name field.
Merge to 5.3.2.
This commit is contained in:
parent
9b1b15d110
commit
2a1f70264c
|
@ -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)])
|
||||||
|
|
Loading…
Reference in New Issue
Block a user