diff --git a/collects/drscheme/syncheck.ss b/collects/drscheme/syncheck.ss index 863d5e3e2e..498f08ceb1 100644 --- a/collects/drscheme/syncheck.ss +++ b/collects/drscheme/syncheck.ss @@ -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 ;; is treated just the same as (#%top . x). (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))) (loop (syntax e)))] @@ -1451,6 +1451,12 @@ If the namespace does not, they are colored the unbound color. (add-binders (syntax names) binders) (maybe-jump (syntax names)) (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 ...)) (begin (annotate-raw-keyword sexp varrefs)