Initial revision

original commit: f754a7603ff0939b79874e8d3af3b2914c6b7f9f

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))))