From 48535752695deb8f0effb44688592c2c33457cc0 Mon Sep 17 00:00:00 2001 From: Scott Owens Date: Mon, 29 Nov 2004 19:27:27 +0000 Subject: [PATCH] *** empty log message *** original commit: d2c6b4f2dd1e0fb1670a195ca6d10dad42e9336b --- collects/framework/private/color.ss | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/collects/framework/private/color.ss b/collects/framework/private/color.ss index bd817568..25818723 100644 --- a/collects/framework/private/color.ss +++ b/collects/framework/private/color.ss @@ -266,9 +266,10 @@ (semaphore-wait mutex-lock) (thread-suspend background-thread) (semaphore-post mutex-lock) - (begin-edit-sequence #f #f) - (color) - (end-edit-sequence))) + (unless (null? colors) + (begin-edit-sequence #f #f) + (color) + (end-edit-sequence)))) (define/private (colorer-callback) (cond