Fix XREPL logging printer to handle new logger name field.

Merge to 5.3.2.
2013-01-11 17:21:34 -05:00 · 2013-01-11 17:21:34 -05:00 · 2a1f70264c
commit 2a1f70264c
parent 9b1b15d110
1 changed files with 1 additions and 1 deletions
--- a/collects/xrepl/xrepl.rkt
+++ b/collects/xrepl/xrepl.rkt
@ -1189,7 +1189,7 @@
        (λ ()
          (let loop ()
            (match (sync r)
-              [(vector l m v)
+              [(vector l m v name)
               (display (format "; [~a] ~a~a\n"
                                l m (if v (format " ~.s" v) "")))
               (flush-output)])