26 lines
885 B
Scheme
26 lines
885 B
Scheme
#lang scheme/base
|
|
|
|
(let ([load (current-load)]
|
|
[load-extension (current-load-extension)]
|
|
[ep (current-error-port)]
|
|
[tab ""])
|
|
(let ([mk-chain
|
|
(lambda (load)
|
|
(lambda (filename expected-module)
|
|
(fprintf ep
|
|
"~aloading ~a at ~a~n"
|
|
tab filename (current-process-milliseconds))
|
|
(begin0
|
|
(let ([s tab])
|
|
(dynamic-wind
|
|
(lambda () (set! tab (string-append " " tab)))
|
|
(lambda ()
|
|
(load filename expected-module))
|
|
(lambda () (set! tab s))))
|
|
(fprintf ep
|
|
"~adone ~a at ~a~n"
|
|
tab filename (current-process-milliseconds)))))])
|
|
(current-load (mk-chain load))
|
|
(current-load-extension (mk-chain load-extension))))
|
|
|