From 0b98d9cd3386ce76d397ec1ba66eff550834e170 Mon Sep 17 00:00:00 2001 From: Scott Owens Date: Mon, 9 Aug 2004 22:42:01 +0000 Subject: [PATCH] *** empty log message *** original commit: c7d19bd3ed39d87547fed28f79f7734bd770d21d --- collects/framework/private/color.ss | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/collects/framework/private/color.ss b/collects/framework/private/color.ss index acd5322c..512bafbd 100644 --- a/collects/framework/private/color.ss +++ b/collects/framework/private/color.ss @@ -279,10 +279,12 @@ (with-handlers ((exn:fail? (lambda (exn) (parameterize ((print-struct #t)) - (printf "colorer thread: ~s\n" exn)) + ((error-display-handler) + (format "exception in colorer thread: ~s" exn) + exn)) (semaphore-wait mutex-lock)))) (re-tokenize (open-input-text-editor this current-pos end-pos - (lambda (x) (values #f 1))) + (lambda (x) #f)) current-pos)) (set! up-to-date? #t) (semaphore-post mutex-lock)