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

fixed pr 7688

Browse Source 
svn: r1333
This commit is contained in:
Robby Findler 2005-11-16 23:52:20 +00:00
parent 5f2299474d
commit 9a1e008ad3
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/drscheme/syncheck.ss
View File

@ -1674,7 +1674,9 @@ If the namespace does not, they are colored the unbound color.
(let ([top-bound?
(or (get-ids binders var)
(parameterize ([current-namespace user-namespace])
(namespace-variable-value (syntax-e var) #t (λ () #f))))])
(let/ec k
(namespace-variable-value (syntax-e var) #t (λ () (k #f)))
#t)))])
(if top-bound?
(color var lexically-bound-variable-style-name)
(color var error-style-name))