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

fix a bug introduced by commit 05b88930c0

Browse Source 
the symptom of the bug is that the red
error highlighting never worked

Please merge to the release branch
This commit is contained in:
Robby Findler 2012-07-21 06:57:50 -05:00
parent 848a28266c
commit 5b96803273
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/drracket/private/rep.rkt
View File

@ -766,9 +766,10 @@ TODO
(define/augment (after-edit-sequence) (define/augment (after-edit-sequence)
(inner (void) after-edit-sequence) (inner (void) after-edit-sequence)
(let ([to-clean had-an-insert]) (unless (null? had-an-insert)
(set! had-an-insert '()) (let ([to-clean had-an-insert])
(update-after-inserts to-clean))) (set! had-an-insert '())
(update-after-inserts to-clean))))
(define/private (update-after-inserts starts) (define/private (update-after-inserts starts)
(unless inserting-prompt? (unless inserting-prompt?