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

10
collects/mzlib/traceld.ss
View File

@ -17,11 +17,12 @@
(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)])
(values
(and loader (and loader
(lambda () (lambda ()
(fprintf ep (fprintf ep
@ -37,7 +38,8 @@
(fprintf ep (fprintf ep
"~adone ~a's ~a at ~a~n" "~adone ~a's ~a at ~a~n"
tab filename sym tab filename sym
(current-process-milliseconds))))))))) (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