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))
|
||||
(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)
|
||||
|
|
Loading…
Reference in New Issue
Block a user