diff --git a/collects/drracket/private/syncheck/traversals.rkt b/collects/drracket/private/syncheck/traversals.rkt index 69f3ae9557..8affcf5c72 100644 --- a/collects/drracket/private/syncheck/traversals.rkt +++ b/collects/drracket/private/syncheck/traversals.rkt @@ -1395,11 +1395,7 @@ (loop (list (syntax-source stx) (syntax-position stx) (syntax-span stx)))))))) - (define locs-to-be-renamed - (sort (hash-map src-locs (λ (k v) k)) - >= - #:key cadr)) - (define to-be-renamed (hash-map all-stxs (λ (k v) k))) + (define to-be-renamed (sort (hash-map all-stxs (λ (k v) k)) > #:key syntax-position)) (define do-renaming? (or (not (name-duplication? to-be-renamed id-sets new-sym)) (equal?