From 0164ff1d49f7a3d122445fcac0b07754f457f37e Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 24 Feb 2010 17:58:59 +0000 Subject: [PATCH] PR 10704 svn: r18323 original commit: 2ce01fd5ceaee2b3e9ad05c32d201e02425c9c58 --- collects/framework/private/color.ss | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/framework/private/color.ss b/collects/framework/private/color.ss index 0151568f..f6a5dd6d 100644 --- a/collects/framework/private/color.ss +++ b/collects/framework/private/color.ss @@ -810,7 +810,9 @@ added get-regions (let ([tokens (lexer-state-tokens ls)]) (tokenize-to-pos ls position) (send tokens search! (- position (lexer-state-start-pos ls))) - (data-type (send tokens get-root-data)))))) + (let ([root-data (send tokens get-root-data)]) + (and root-data + (data-type root-data))))))) (define/private (tokenize-to-pos ls position) (when (and (not (lexer-state-up-to-date? ls))