From 9194ffedd848b295005ef5d890e18237a1b8d087 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 1 Dec 1997 18:01:29 +0000
Subject: [PATCH] Initial revision

original commit: f754a7603ff0939b79874e8d3af3b2914c6b7f9f
---
 collects/mzlib/traceld.ss | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 collects/mzlib/traceld.ss

diff --git a/collects/mzlib/traceld.ss b/collects/mzlib/traceld.ss
new file mode 100644
index 0000000..4dd5ac8
--- /dev/null
+++ b/collects/mzlib/traceld.ss
@@ -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))))