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

partial fix to PR 8260

Browse Source 
svn: r4237
This commit is contained in:
Robby Findler 2006-09-04 19:32:51 +00:00
parent 75bc7cfcb9
commit f2f186445b
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/drscheme/syncheck.ss
View File

@ -1410,7 +1410,7 @@ If the namespace does not, they are colored the unbound color.
;; tops are used here because a binding free use of a set!'d variable ;; tops are used here because a binding free use of a set!'d variable
;; is treated just the same as (#%top . x). ;; is treated just the same as (#%top . x).
(if (identifier-binding (syntax var)) (if (identifier-binding (syntax var))
(add-id (if high-level? high-varrefs varrefs) (syntax var)) (add-id varrefs (syntax var))
(add-id tops (syntax var))) (add-id tops (syntax var)))
(loop (syntax e)))] (loop (syntax e)))]
@ -1451,6 +1451,12 @@ If the namespace does not, they are colored the unbound color.
(add-binders (syntax names) binders) (add-binders (syntax names) binders)
(maybe-jump (syntax names)) (maybe-jump (syntax names))
(level-loop (syntax exp) #t))] (level-loop (syntax exp) #t))]
[(define-values-for-syntaxes names exp)
(begin
(annotate-raw-keyword sexp varrefs)
(add-binders (syntax names) binders)
(maybe-jump (syntax names))
(level-loop (syntax exp) #t))]
[(module m-name lang (#%plain-module-begin bodies ...)) [(module m-name lang (#%plain-module-begin bodies ...))
(begin (begin
(annotate-raw-keyword sexp varrefs) (annotate-raw-keyword sexp varrefs)