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

*** empty log message ***

Browse Source 
original commit: 179761e324b74d01f959acff100de233675b0865
This commit is contained in:
Matthew Flatt 1997-12-05 20:00:06 +00:00
parent 7ae8e53e70
commit 01432f42bf
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/mzlib/traceld.ss
View File

@ -24,12 +24,17 @@
(fprintf (current-error-port) (fprintf (current-error-port)
"~astarting ~a at ~a~n" tab sym "~astarting ~a at ~a~n" tab sym
(current-process-milliseconds)) (current-process-milliseconds))
(let ([s tab])
(dynamic-wind
(lambda () (set! tab (string-append " " tab)))
(lambda ()
(begin0 (begin0
(loader) (loader)
(fprintf (current-error-port) (fprintf (current-error-port)
"~adone ~a at ~a~n" "~adone ~a at ~a~n"
tab sym tab sym
(current-process-milliseconds)))))))) (current-process-milliseconds))))
(lambda () (set! tab s)))))))))
(load filename))) (load filename)))
(lambda () (set! tab s)))) (lambda () (set! tab s))))
(fprintf (current-error-port) (fprintf (current-error-port)