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

*** empty log message ***

Browse Source 
original commit: da9f80561d6630bd5e71da6baa776b618b0624c6
This commit is contained in:
Matthew Flatt 1997-12-03 17:42:35 +00:00
parent 9194ffedd8
commit 8cb78f0e01
1 changed files with 25 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
collects/mzlib/traceld.ss
View File

@ -8,16 +8,30 @@
(fprintf (current-error-port) (fprintf (current-error-port)
"~aloading ~a~n" "~aloading ~a~n"
tab filename) tab filename)
(let ([s tab]) (begin0
(dynamic-wind (let ([s tab])
(lambda () (set! tab (string-append " " tab))) (dynamic-wind
(lambda () (lambda () (set! tab (string-append " " tab)))
(if (regexp-match "_loader" filename) (lambda ()
(let ([f (load filename)]) (if (regexp-match "_loader" filename)
(lambda (sym) (let ([f (load filename)])
(printf "~atrying ~a~n" tab sym) (lambda (sym)
(f sym))) (fprintf (current-error-port)
(load filename))) "~atrying ~a~n" tab sym)
(lambda () (set! tab s))))))]) (let ([loader (f sym)])
(and loader
(lambda ()
(fprintf (current-error-port)
"~astarting ~a~n" tab sym)
(begin0
(time (loader))
(fprintf (current-error-port)
"~adone ~a~n"
tab sym)))))))
(time (load filename))))
(lambda () (set! tab s))))
(fprintf (current-error-port)
"~adone ~a~n"
tab filename))))])
(current-load (mk-chain load)) (current-load (mk-chain load))
(current-load-extension (mk-chain load-extension)))) (current-load-extension (mk-chain load-extension))))