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

guard a use of get-root-data in the token tree implementation

Browse Source 
closes PR 12072

original commit: 8e5bb730b369b169821695e1b3216d68a8d71d64
This commit is contained in:
Robby Findler 2011-09-16 17:33:36 -05:00
parent 0156ad664b
commit b250603a14
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/framework/private/color.rkt
View File

@ -879,8 +879,9 @@ added get-regions
(send tokens search! (- (if (eq? direction 'backward) (sub1 position) position)
start-pos))
(cond
((or (eq? 'white-space (data-type (send tokens get-root-data)))
(and comments? (eq? 'comment (data-type (send tokens get-root-data)))))
((and (send tokens get-root-data)
(or (eq? 'white-space (data-type (send tokens get-root-data)))
(and comments? (eq? 'comment (data-type (send tokens get-root-data))))))
(skip-whitespace (+ start-pos
(if (eq? direction 'forward)
(send tokens get-root-end-position)