fix bug in spell checker refactoring from 3dcecc00

This commit is contained in:
Robby Findler 2015-08-14 05:48:09 -05:00
parent 9a1d8f7215
commit 204c0b6694

View File

@ -1359,8 +1359,8 @@ added get-regions
(define suggestions (list-ref err 2))
(set! answer
(list*
(list #t (+ pos err-start) (+ pos err-start err-len))
(list suggestions (+ pos lp) (+ pos err-start))
(list suggestions (+ pos err-start) (+ pos err-start err-len))
(list #f (+ pos lp) (+ pos err-start))
answer))
(loop (cdr spellos) (+ err-start err-len))]))
(loop (cdr strs)