From d34490d99023e2a736a599ee95f945d1413fca76 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 14 Aug 2012 16:18:37 -0500 Subject: [PATCH] show docs for syntax-quoted identifiers (when there are docs to show) --- collects/drracket/private/syncheck/traversals.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/drracket/private/syncheck/traversals.rkt b/collects/drracket/private/syncheck/traversals.rkt index c075c3000c..098b826370 100644 --- a/collects/drracket/private/syncheck/traversals.rkt +++ b/collects/drracket/private/syncheck/traversals.rkt @@ -491,7 +491,6 @@ (for ([vars (in-list (get-idss templrefs))]) (for ([var (in-list vars)]) - ;; build a set of all of the known phases (define phases (set)) (for ([phase (in-list (hash-keys phase-to-binders))]) @@ -501,6 +500,7 @@ ;; connect every identifier inside a quote-syntax to each binder at any phase (for ([phase (in-set phases)]) + (document-variable var phase) (connect-identifier var (lookup-phase-to-mapping phase-to-binders phase) unused/phases