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

fix a coloring bug

Browse Source 
also, add a little more logging to the aspell logging info
This commit is contained in:
Robby Findler 2012-11-24 13:54:33 -06:00
parent 4b094f8ec8
commit 793ee71e69
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/framework/private/aspell.rkt
View File

@ -48,7 +48,8 @@
(define problematic 'dont-know) (define problematic 'dont-know)
(define (aspell-problematic?) (define (aspell-problematic?)
(when (eq? problematic 'dont-know) (when (eq? problematic 'dont-know)
(set! problematic (do-aspell-problematic))) (set! problematic (do-aspell-problematic))
(asp-log (format "set problematic to ~s" problematic)))
problematic) problematic)
(define (do-aspell-problematic) (define (do-aspell-problematic)

2
collects/framework/private/color.rkt
View File

@ -394,7 +394,7 @@ added get-regions
[lp 0]) [lp 0])
(cond (cond
[(null? spellos) [(null? spellos)
(add-coloring color (+ sp lp) (+ sp (string-length str)))] (add-coloring color (+ pos lp) (+ pos (string-length str)))]
[else [else
(define err (car spellos)) (define err (car spellos))
(define err-start (list-ref err 0)) (define err-start (list-ref err 0))