fix bug in spell checker refactoring from 3dcecc00
This commit is contained in:
parent
9a1d8f7215
commit
204c0b6694
|
@ -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)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user