From 23aa31fc6f219db889401b62da20b6ee7d571e83 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 14 Aug 2012 17:47:59 -0500 Subject: [PATCH] adjut check syntax so that it pays attention only to syntax-original? identifiers It used to pay attention to non-original identifiers if they were in the disappeared-use or disappeared-binding properties, but now that the 'syntax' macro is fixed (commit f28e8a0) it can ignore all non-original identifiers --- collects/drracket/private/syncheck/traversals.rkt | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/collects/drracket/private/syncheck/traversals.rkt b/collects/drracket/private/syncheck/traversals.rkt index 098b826370..0b023515b1 100644 --- a/collects/drracket/private/syncheck/traversals.rkt +++ b/collects/drracket/private/syncheck/traversals.rkt @@ -407,7 +407,7 @@ (loop (cdr prop))] [(identifier? prop) (add-origins prop disappaeared-uses) - (add-id binders prop #:add-if-not-original? #T)]))))) + (add-id binders prop)]))))) ;; add-disappeared-uses : syntax id-set -> void (define (add-disappeared-uses stx id-set) @@ -419,7 +419,7 @@ (loop (car prop)) (loop (cdr prop))] [(identifier? prop) - (add-id id-set prop #:add-if-not-original? #t)]))))) + (add-id id-set prop)]))))) ;; add-require-spec : hash-table[sexp[require-spec] -o> (listof syntax)] ;; -> sexp[require-spec] @@ -1183,9 +1183,8 @@ (free-identifier-mapping-put! mapping id new)))) ;; add-id : id-set identifier -> void - (define (add-id mapping id #:add-if-not-original? [add-if-not-original? #f]) - (when (or add-if-not-original? - (syntax-original? id)) + (define (add-id mapping id) + (when (syntax-original? id) (let* ([old (free-identifier-mapping-get mapping id (λ () '()))] [new (cons id old)]) (free-identifier-mapping-put! mapping id new))))