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

Initial revision

Browse Source 
original commit: f754a7603ff0939b79874e8d3af3b2914c6b7f9f
This commit is contained in:
Matthew Flatt 1997-12-01 18:01:29 +00:00
parent 4e67f438b0
commit 9194ffedd8
1 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
collects/mzlib/traceld.ss Normal file
View File

@ -0,0 +1,23 @@
(let ([load (current-load)]
[load-extension (current-load-extension)]
[tab ""])
(let ([mk-chain
(lambda (load)
(lambda (filename)
(fprintf (current-error-port)
"~aloading ~a~n"
tab filename)
(let ([s tab])
(dynamic-wind
(lambda () (set! tab (string-append " " tab)))
(lambda ()
(if (regexp-match "_loader" filename)
(let ([f (load filename)])
(lambda (sym)
(printf "~atrying ~a~n" tab sym)
(f sym)))
(load filename)))
(lambda () (set! tab s))))))])
(current-load (mk-chain load))
(current-load-extension (mk-chain load-extension))))