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

fixed a bug in word completion

Browse Source 
svn: r9921
This commit is contained in:
Robby Findler 2008-05-21 14:08:42 +00:00
parent 64d8b39b49
commit 40fc919765
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -441,10 +441,10 @@
[(or (is-stopped?) (is-frozen?)) [(or (is-stopped?) (is-frozen?))
no-word] no-word]
[else [else
(let ([type (classify-position current-pos)]) (let ([type (classify-position (max 0 (- current-pos 1)))])
(cond (cond
[(eq? 'symbol type) [(eq? 'symbol type)
(get-text (look-for-non-symbol current-pos) (get-text (look-for-non-symbol (max 0 (- current-pos 1)))
current-pos)] current-pos)]
[else no-word]))]))) [else no-word]))])))