diff --git a/collects/redex/private/traces.ss b/collects/redex/private/traces.ss index 42ba9b4cad..519fd2267b 100644 --- a/collects/redex/private/traces.ss +++ b/collects/redex/private/traces.ss @@ -855,7 +855,8 @@ (send text set-autowrap-bitmap #f) (send text set-max-width 'none) (send text freeze-colorer) - (send text stop-colorer (not scheme-colors?)) + (unless scheme-colors? + (send text stop-colorer #t)) (send es format-expr) es)) diff --git a/collects/redex/redex.scrbl b/collects/redex/redex.scrbl index c277c38b9b..8688a30e38 100644 --- a/collects/redex/redex.scrbl +++ b/collects/redex/redex.scrbl @@ -1349,7 +1349,10 @@ filled in for the remaining colors. The @scheme[scheme-colors?] argument, if @scheme[#t] causes @scheme[traces] to color the contents of each of the windows according to DrScheme's Scheme mode color Scheme. If it is @scheme[#f], -@scheme[traces] just uses black for the color scheme. +@scheme[traces] just uses black for the color scheme. +In addition, Scheme-mode parenthesis highlighting is +enabled when @scheme[scheme-colors?] +is @scheme[#t] and not when it is @scheme[#f]. The @scheme[term-filter] function is called each time a new node is about to be inserted into the graph. If the filter returns false, the