From 01432f42bf6413883d163e8cbe71376713cdc940 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 5 Dec 1997 20:00:06 +0000 Subject: [PATCH] *** empty log message *** original commit: 179761e324b74d01f959acff100de233675b0865 --- collects/mzlib/traceld.ss | 17 +++++++++++------ 1 file changed, 11 insertions(+), 6 deletions(-) diff --git a/collects/mzlib/traceld.ss b/collects/mzlib/traceld.ss index cdca246..4e89a92 100644 --- a/collects/mzlib/traceld.ss +++ b/collects/mzlib/traceld.ss @@ -24,12 +24,17 @@ (fprintf (current-error-port) "~astarting ~a at ~a~n" tab sym (current-process-milliseconds)) - (begin0 - (loader) - (fprintf (current-error-port) - "~adone ~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))))))))) (load filename))) (lambda () (set! tab s)))) (fprintf (current-error-port)