From 0ff00061208b72289bf9d1774f54e77883873d37 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 10 Mar 2012 10:51:56 -0700
Subject: [PATCH] mzlib/traceld: show submodule

original commit: 8eef24be8748c556e18cecf4a164a6e2924fce57
---
 collects/mzlib/traceld.rkt | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/collects/mzlib/traceld.rkt b/collects/mzlib/traceld.rkt
index 946d431..ea98091 100644
--- a/collects/mzlib/traceld.rkt
+++ b/collects/mzlib/traceld.rkt
@@ -7,9 +7,13 @@
   (let ([mk-chain
          (lambda (load)
            (lambda (filename expected-module)
-             (fprintf ep
-                      "~aloading ~a at ~a\n" 
-                      tab filename (current-process-milliseconds))
+             (define name
+               (if (pair? expected-module)
+                   (format "~a ~s" filename `(submod "." ,@(cdr expected-module)))
+                   filename))
+             (fprintf ep 
+                      "~aloading ~a at ~a\n"
+                      tab name (current-process-milliseconds))
              (begin0
               (let ([s tab])
                 (dynamic-wind
@@ -19,7 +23,7 @@
                     (lambda () (set! tab s))))
               (fprintf ep
                        "~adone ~a at ~a\n"
-                       tab filename (current-process-milliseconds)))))])
+                       tab name (current-process-milliseconds)))))])
     (current-load (mk-chain load))
     (current-load-extension (mk-chain load-extension))))