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

*** empty log message ***

Browse Source 
original commit: 855415fda04c8675d46d118c5f69db2c80271edf
This commit is contained in:
Matthew Flatt 1997-12-05 20:05:05 +00:00
parent 01432f42bf
commit 454a0f86f8
1 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
collects/mzlib/traceld.ss
View File

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