add another printf for drdr's consumption

2011-11-25 17:54:56 -06:00 · 2011-11-25 17:54:56 -06:00 · e942bb1c3a
commit e942bb1c3a
parent ca457b0052
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))