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

another fix for PR 8502

Browse Source 
svn: r5476
This commit is contained in:
Robby Findler 2007-01-27 14:08:39 +00:00
parent 8dc4f3aa69
commit c88dd61348
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/drscheme/syncheck.ss
View File

@ -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)]) (let-values ([(base offset) (module-path-index-split mod-path)])
(cons base (list-ref binding 3)))] (cons base (list-ref binding 3)))]
[(symbol? mod-path) [(symbol? mod-path)
(cons mod-path #f)])))) (cons mod-path (list-ref binding 3))]))))
;; color/connect-top : namespace directory id-set syntax -> void ;; color/connect-top : namespace directory id-set syntax -> void
(define (color/connect-top rename-ht user-namespace user-directory binders var) (define (color/connect-top rename-ht user-namespace user-directory binders var)