fixed a bug in word completion

svn: r9921 original commit: 40fc9197655b2e62cb10efa34f7ed17e75719dfd
2008-05-21 14:08:42 +00:00 · 2008-05-21 14:08:42 +00:00 · cc03794bc1
commit cc03794bc1
parent 0360360fdd
1 changed files with 2 additions and 2 deletions
--- a/collects/framework/private/scheme.ss
+++ b/collects/framework/private/scheme.ss
@ -441,10 +441,10 @@
          [(or (is-stopped?) (is-frozen?))
           no-word]
          [else
-           (let ([type (classify-position current-pos)])
+           (let ([type (classify-position (max 0 (- current-pos 1)))])
             (cond
               [(eq? 'symbol type) 
-                (get-text (look-for-non-symbol current-pos)
+                (get-text (look-for-non-symbol (max 0 (- current-pos 1)))
                          current-pos)]
               [else no-word]))])))