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

fixed bug

Browse Source 
svn: r8852

original commit: 0d54a9816fe41383a63894bba822d5492d63076c
This commit is contained in:
Robby Findler 2008-03-02 22:43:07 +00:00
parent 87bd0170da
commit b858b854d7
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -711,6 +711,11 @@ added get-regions
(when stopped? (when stopped?
(error 'skip-whitespace "called on a color:text<%> whose colorer is stopped.")) (error 'skip-whitespace "called on a color:text<%> whose colorer is stopped."))
(cond (cond
[(and (eq? direction 'forward)
(= position (last-position)))
position]
[(and (eq? direction 'backward) (= position 0))
position]
[(not (in-colored-region? position)) [(not (in-colored-region? position))
position] position]
[else [else