add another printf for drdr's consumption

original commit: e942bb1c3a8ede379ff8ea5032a5cc5855f279c1
2011-11-25 17:54:56 -06:00 · 2011-11-25 17:54:56 -06:00 · 49d4593939
commit 49d4593939
parent f028cff805
1 changed files with 2 additions and 0 deletions
--- a/collects/framework/private/color.rkt
+++ b/collects/framework/private/color.rkt
@ -470,6 +470,8 @@ added get-regions
        (with-handlers ((exn:fail?
                         (λ (exn)
                            (parameterize ((print-struct #t))
+                              (when (getenv "PLTDRDRTEST")
+                                (printf "colorer-driver: error ~a\n" (and (exn? exn) (exn-message exn))))
                              ((error-display-handler) 
                               (format "exception in colorer thread: ~s" exn)
                               exn))