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

check syntax: sort the identifiers (but this time without a bug...)

Browse Source 
closes PR 11494
This commit is contained in:
Robby Findler 2010-12-04 08:49:09 -06:00
parent dba0472873
commit 3a506e5acb
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/drracket/private/syncheck/traversals.rkt
View File

@ -1395,11 +1395,7 @@
(loop (list (syntax-source stx) (loop (list (syntax-source stx)
(syntax-position stx) (syntax-position stx)
(syntax-span stx)))))))) (syntax-span stx))))))))
(define locs-to-be-renamed (define to-be-renamed (sort (hash-map all-stxs (λ (k v) k)) > #:key syntax-position))
(sort (hash-map src-locs (λ (k v) k))
>=
#:key cadr))
(define to-be-renamed (hash-map all-stxs (λ (k v) k)))
(define do-renaming? (define do-renaming?
(or (not (name-duplication? to-be-renamed id-sets new-sym)) (or (not (name-duplication? to-be-renamed id-sets new-sym))
(equal? (equal?