fixed a bug in the way interval maps were being used in check syntax.

please push to the release branch.
2010-10-26 17:05:09 -05:00 · 2010-10-26 17:05:09 -05:00 · b121171a98
commit b121171a98
parent 6457f1e4cc
1 changed files with 1 additions and 1 deletions
--- a/collects/drracket/private/syncheck/gui.rkt
+++ b/collects/drracket/private/syncheck/gui.rkt
@ -504,7 +504,7 @@ If the namespace does not, they are colored the unbound color.
                                                (if (for/or ([x (in-list old)])
                                                      (and (pair? x) (car x) (eq? (car x) key)))
                                                    old
-                                                    (cons to-add old)))
+                                                    (cons (cons key to-add) old)))
                                              null)]
                      [else
                       (interval-map-cons*! arrow-record