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)) (define suggestions (list-ref err 2))
(set! answer (set! answer
(list* (list*
(list #t (+ pos err-start) (+ pos err-start err-len)) (list suggestions (+ pos err-start) (+ pos err-start err-len))
(list suggestions (+ pos lp) (+ pos err-start)) (list #f (+ pos lp) (+ pos err-start))
answer)) answer))
(loop (cdr spellos) (+ err-start err-len))])) (loop (cdr spellos) (+ err-start err-len))]))
(loop (cdr strs) (loop (cdr strs)