fix a bug introduced by commit 05b88930c0

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

View File

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