suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

PR 10704

Browse Source 
svn: r18323

original commit: 2ce01fd5ceaee2b3e9ad05c32d201e02425c9c58
This commit is contained in:
Robby Findler 2010-02-24 17:58:59 +00:00
parent bbd9538438
commit 0164ff1d49
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/framework/private/color.ss
View File

@ -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))