another fix for PR 8502

svn: r5476
2007-01-27 14:08:39 +00:00 · 2007-01-27 14:08:39 +00:00 · c88dd61348
commit c88dd61348
parent 8dc4f3aa69
1 changed files with 1 additions and 1 deletions
--- a/collects/drscheme/syncheck.ss
+++ b/collects/drscheme/syncheck.ss
@ -1753,7 +1753,7 @@ If the namespace does not, they are colored the unbound color.
                  (let-values ([(base offset) (module-path-index-split mod-path)])
                    (cons base (list-ref binding 3)))]
                 [(symbol? mod-path)
-                  (cons mod-path #f)]))))
+                  (cons mod-path (list-ref binding 3))]))))
      
      ;; color/connect-top : namespace directory id-set syntax -> void
      (define (color/connect-top rename-ht user-namespace user-directory binders var)