From f028cff805092eff80e11fb9740db70145b336c0 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Fri, 25 Nov 2011 15:12:28 -0600
Subject: [PATCH] add some debugging to see if I get more useful info for the
 module language test intermeittent failure

original commit: ca457b00520ada0aba50a83588440b4d9f532960
---
 collects/framework/private/color.rkt | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/collects/framework/private/color.rkt b/collects/framework/private/color.rkt
index 22639fcb..775e0508 100644
--- a/collects/framework/private/color.rkt
+++ b/collects/framework/private/color.rkt
@@ -119,7 +119,7 @@ added get-regions
        ;; Paren-matching
        parens 
        )
-      #:mutable)
+      #:mutable #:transparent)
 
     ;; The lexer
     (define get-token #f)
@@ -448,6 +448,9 @@ added get-regions
                 (coroutine
                  (λ (enable-suspend)
                     (parameterize ((port-count-lines-enabled #t))
+                      (when (getenv "PLTDRDRTEST")
+                        (printf "colorer-driver: lexer-states ~s\n" lexer-states)
+                        (printf "colorer-driver: text ~s\n" (send this get-text)))
                       (for-each
                        (lambda (ls)
                          (re-tokenize ls