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

mzlib/traceld: show submodule

Browse Source 
original commit: 8eef24be8748c556e18cecf4a164a6e2924fce57
This commit is contained in:
Matthew Flatt 2012-03-10 10:51:56 -07:00
parent e4759d6931
commit 0ff0006120
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/mzlib/traceld.rkt
View File

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