From e88c8dbaa0aafd3a7c99fe1a94c7bc5519f5b8d7 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Sat, 27 Aug 2011 07:52:42 -0500
Subject: [PATCH] add more debuggin info to the thread-safe-resolver.rkt planet
 test to try to debug it on drdr

---
 collects/planet/private/resolver.rkt           | 11 ++++++++++-
 collects/planet/resolver.rkt                   |  3 ++-
 collects/tests/planet/thread-safe-resolver.rkt |  6 +++++-
 3 files changed, 17 insertions(+), 3 deletions(-)

diff --git a/collects/planet/private/resolver.rkt b/collects/planet/private/resolver.rkt
index 5ff32905a0..ad3f2d81b9 100644
--- a/collects/planet/private/resolver.rkt
+++ b/collects/planet/private/resolver.rkt
@@ -175,6 +175,12 @@ See the scribble documentation on the planet/resolver module.
   (case-lambda
     [(name) (void)]
     [(spec module-path stx load? orig-paramz)
+     (when (show-planet-resolver-invocations)
+       (eprintf "resolver invoked: ~s ~s\n" spec module-path)
+       (for ([x (in-list (continuation-mark-set->context (current-continuation-marks)))])
+         (eprintf "  ~s\n" x))
+       (eprintf "\n"))
+     
      ;; ensure these directories exist
      (try-make-directory* (PLANET-DIR))
      (try-make-directory* (CACHE-DIR))
@@ -185,6 +191,8 @@ See the scribble documentation on the planet/resolver module.
                      load?
                      orig-paramz)]))
 
+(define show-planet-resolver-invocations (make-parameter #f))
+
 (require racket/tcp
          racket/port
          racket/match
@@ -215,7 +223,8 @@ See the scribble documentation on the planet/resolver module.
          get-planet-module-path/pkg
          download?
          install?
-         (struct-out exn:fail:planet))
+         (struct-out exn:fail:planet)
+         show-planet-resolver-invocations)
 
 ;; if #f, will not install packages and instead raise a exn:fail:install? error
 (define install? (make-parameter #t))
diff --git a/collects/planet/resolver.rkt b/collects/planet/resolver.rkt
index b3e5ce0b65..a3b3514ba7 100644
--- a/collects/planet/resolver.rkt
+++ b/collects/planet/resolver.rkt
@@ -4,4 +4,5 @@
          resolve-planet-path
          install? 
          download?
-         get-planet-module-path/pkg)
+         get-planet-module-path/pkg
+         show-planet-resolver-invocations)
diff --git a/collects/tests/planet/thread-safe-resolver.rkt b/collects/tests/planet/thread-safe-resolver.rkt
index 08550eb89a..89606ece4d 100644
--- a/collects/tests/planet/thread-safe-resolver.rkt
+++ b/collects/tests/planet/thread-safe-resolver.rkt
@@ -1,10 +1,14 @@
 #lang racket/base
 (require planet/util
          rackunit
-         racket/port)
+         racket/port
+         planet/resolver)
 
 (define debug? #t)
 
+(when debug?
+  (show-planet-resolver-invocations #t))
+
 (define (install-one package-spec key)
   (define op (open-output-string))
   (parameterize ([current-output-port op]