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

.

Browse Source 
original commit: 2f7de086cea2d2de6a3ca9bd8c0c304a4cd05027
This commit is contained in:
Matthew Flatt 2001-11-03 22:15:05 +00:00
parent 21f577da9a
commit 4a9dac7b9c
1 changed files with 21 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
collects/mzlib/traceld.ss
View File

@ -17,27 +17,29 @@
(lambda () (set! tab (string-append " " tab))) (lambda () (set! tab (string-append " " tab)))
(lambda () (lambda ()
(if (regexp-match "_loader" filename) (if (regexp-match "_loader" filename)
(let ([f (load filename)]) (let ([f (load filename #f)])
(lambda (sym expected-module) (lambda (sym)
(fprintf ep (fprintf ep
"~atrying ~a's ~a~n" tab filename sym) "~atrying ~a's ~a~n" tab filename sym)
(let ([loader (f sym expected-module)]) (let-values ([(loader provided-module) (f sym)])
(and loader (values
(lambda () (and loader
(fprintf ep (lambda ()
"~astarting ~a's ~a at ~a~n" (fprintf ep
tab filename sym "~astarting ~a's ~a at ~a~n"
(current-process-milliseconds)) tab filename sym
(let ([s tab]) (current-process-milliseconds))
(begin0 (let ([s tab])
(dynamic-wind (begin0
(lambda () (set! tab (string-append " " tab))) (dynamic-wind
(lambda () (loader)) (lambda () (set! tab (string-append " " tab)))
(lambda () (set! tab s))) (lambda () (loader))
(fprintf ep (lambda () (set! tab s)))
"~adone ~a's ~a at ~a~n" (fprintf ep
tab filename sym "~adone ~a's ~a at ~a~n"
(current-process-milliseconds))))))))) tab filename sym
(current-process-milliseconds))))))
provided-module))))
(load filename expected-module))) (load filename expected-module)))
(lambda () (set! tab s)))) (lambda () (set! tab s))))
(fprintf ep (fprintf ep