From 02a598b9b44e85060551fbd322be5b409f48c4ae Mon Sep 17 00:00:00 2001 From: Scott Owens Date: Mon, 25 Oct 2004 06:27:54 +0000 Subject: [PATCH] *** empty log message *** original commit: 1377763b8afdbf7c5003ea144652ab26d7c4a364 --- collects/framework/private/color.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/framework/private/color.ss b/collects/framework/private/color.ss index 647e7eb1..8acd112a 100644 --- a/collects/framework/private/color.ss +++ b/collects/framework/private/color.ss @@ -244,7 +244,7 @@ (set! invalid-tokens invalid-tree) (set! invalid-tokens-start (+ invalid-tokens-start tok-end change-length)))) - ((>= edit-start-pos current-pos) + ((> edit-start-pos current-pos) (set! invalid-tokens-start (+ change-length invalid-tokens-start))) (else (let-values (((tok-start tok-end valid-tree invalid-tree)