From eeb79e0e4801e0da9c7642b350e7f6fc234deaaf Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Fri, 5 Aug 2011 15:46:46 -0700
Subject: [PATCH] add more detail to the hopefully-help-me-debug log messages
 that drracket reports about the online check syntax bug

---
 collects/drracket/private/expanding-place.rkt | 20 ++++++++++++-------
 1 file changed, 13 insertions(+), 7 deletions(-)

diff --git a/collects/drracket/private/expanding-place.rkt b/collects/drracket/private/expanding-place.rkt
index 7dec525a79..e7baa45f1a 100644
--- a/collects/drracket/private/expanding-place.rkt
+++ b/collects/drracket/private/expanding-place.rkt
@@ -60,19 +60,24 @@
     (parameterize ([current-custodian cust])
       (thread
        (λ ()
-         (log-info "expanding-place.rkt: starting thread")
+         (log-info "expanding-place.rkt: 01 starting thread")
          (define sema (make-semaphore 0))
+         (log-info "expanding-place.rkt: 02 setting basic parameters")
          (set-basic-parameters/no-gui)
+         (log-info "expanding-place.rkt: 03 setting module language parameters")
          (set-module-language-parameters settings
                                          module-language-parallel-lock-client
                                          #:use-use-current-security-guard? #t)
+         (log-info "expanding-place.rkt: 04 setting directories")
          (when path
            (let-values ([(base name dir?) (split-path path)])
              (current-directory base)
              (current-load-relative-directory base)))
          (define sp (open-input-string program-as-string))
          (port-count-lines! sp)
+         (log-info "expanding-place.rkt: 05 installing security guard")
          (install-security-guard) ;; must come after the call to set-module-language-parameters
+         (log-info "expanding-place.rkt: 06 setting uncaught-exception-handler")
          (uncaught-exception-handler
           (λ (exn)
             (parameterize ([current-custodian orig-cust])
@@ -83,33 +88,34 @@
                  (channel-put exn-chan exn))))
             (semaphore-wait sema)
             ((error-escape-handler))))
-         (log-info "expanding-place.rkt: starting read-syntax")
+         (log-info "expanding-place.rkt: 07 starting read-syntax")
          (define stx
            (parameterize ([read-accept-reader #t])
              (read-syntax the-source sp)))
-         (log-info "expanding-place.rkt: read")
+         (log-info "expanding-place.rkt: 08 read")
          (when (syntax? stx) ;; could be eof
            (define-values (name lang transformed-stx)
              (transform-module path
                                (namespace-syntax-introduce stx)
                                raise-hopeless-syntax-error))
-           (log-info "expanding-place.rkt: starting expansion")
+           (log-info "expanding-place.rkt: 09 starting expansion")
            (define expanded (expand transformed-stx))
-           (log-info "expanding-place.rkt: expanded")
+           (log-info "expanding-place.rkt: 10 expanded")
            (define handler-results
              (for/list ([handler (in-list handlers)])
                (list (handler-key handler)
                      ((handler-proc handler) expanded
                                              path
                                              the-source))))
-           (log-info "expanding-place.rkt: handlers finished")
+           (log-info "expanding-place.rkt: 11 handlers finished")
            (parameterize ([current-custodian orig-cust])
              (thread
               (λ ()
                 (channel-put normal-termination #t)
                 (semaphore-post sema)
                 (channel-put result-chan handler-results))))
-           (semaphore-wait sema))))))
+           (semaphore-wait sema)
+           (log-info "expanding-place.rkt: 12 finished"))))))
   
   (thread
    (λ ()