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

missed a point when the error highlights should be cleared out

Browse Source
This commit is contained in:
Robby Findler 2011-09-09 14:56:54 -05:00
parent 3c89f61c36
commit 85d46008a0
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/drracket/private/module-language.rkt
View File

@ -1297,6 +1297,10 @@
(define error-ranges '())
(define/private (clear-old-error)
(for ([an-error-range (in-list error-ranges)])
(when (error-range-clear-highlight an-error-range)
((error-range-clear-highlight an-error-range))
(set-error-range-clear-highlight! an-error-range #f)))
(set! error-ranges '())
(invalidate-bitmap-cache 0 0 'display-end 'display-end))