fix forward-word bug for words > 30 characters

svn: r14475
2009-04-09 12:43:10 +00:00 · 2009-04-09 12:43:10 +00:00 · 49852a87fc
commit 49852a87fc
parent ee8a4308b8
1 changed files with 4 additions and 2 deletions
--- a/collects/mred/private/wxme/wordbreak.ss
+++ b/collects/mred/private/wxme/wordbreak.ss
@ -129,7 +129,8 @@
        
        (let ploop ([phase1-complete? #f]
                    [text text]
-                    [tend tend])
+                    [tend tend]
+                    [end end])
          (let-values ([(end phase1-complete?)
                        (if phase1-complete?
                            (values end #t)
@ -147,5 +148,6 @@
                  (if (and (= tend end) (not (= lend tend)))
                      (ploop phase1-complete?
                             (send win get-text lstart (+ lstart lend))
-                             lend)
+                             lend
+                             end)
                      (set-box! endp (+ end lstart)))))))))))