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

disable a broken responsiveness optimization

Browse Source 
(cherry picked from commit c8bee5acf7)
This commit is contained in:
Robby Findler 2013-01-28 09:47:12 -06:00 committed by Ryan Culpepper
parent 0e8ed01cde
commit 1f6581fa44
2 changed files with 33 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1134,22 +1134,10 @@
(for/or ([(level id-set) (in-hash phase-to-map)]) (for/or ([(level id-set) (in-hash phase-to-map)])
(get-ids id-set new-id)))))))) (get-ids id-set new-id))))))))
#t)) #t))
(define max-to-send-at-once 30) (send defs-text syncheck:add-rename-menu
(let loop ([loc-lst loc-lst] id-as-sym
[len (length loc-lst)]) loc-lst
(cond name-dup?)))))))
[(<= len max-to-send-at-once)
(send defs-text syncheck:add-rename-menu
id-as-sym
loc-lst
name-dup?)]
[else
(send defs-text syncheck:add-rename-menu
id-as-sym
(take loc-lst max-to-send-at-once)
name-dup?)
(loop (drop loc-lst max-to-send-at-once)
(- len max-to-send-at-once))]))))))))
;; remove-duplicates-stx : (listof syntax[original]) -> (listof syntax[original]) ;; remove-duplicates-stx : (listof syntax[original]) -> (listof syntax[original])
;; removes duplicates, based on the source locations of the identifiers ;; removes duplicates, based on the source locations of the identifiers

30
collects/tests/drracket/syncheck-test.rkt
View File

@ -1121,7 +1121,35 @@
" (super-new)\n" " (super-new)\n"
"\n" "\n"
" (define/private (put t pl)\n" " (define/private (put t pl)\n"
" (set! tiles(remove t tiles)))))\n")))) " (set! tiles(remove t tiles)))))\n"))
(build-rename-test
(string-append
"#lang racket/base\n"
"(define (f y)\n"
" y y y y y y y y y y y y y y y y y y y y y y y y\n"
" y y y y y y y y y y y y y y y y y y y y y y y y\n"
" y y y y y y y y y y y y y y y y y y y y y y y y\n"
" y y y y y y y y y y y y y y y y y y y y y y y y\n"
" y y y y y y y y y y y y y y y y y y y y y y y y\n"
" y y y y y y y y y y y y y y y y y y y y y y y y\n"
" y y y y y y y y y y y y y y y y y y y y y y y y\n"
" y y y y y y y y y y y y y y y y y y y y y y y y)\n")
29
"y"
"x"
(string-append
"#lang racket/base\n"
"(define (f x)\n"
" x x x x x x x x x x x x x x x x x x x x x x x x\n"
" x x x x x x x x x x x x x x x x x x x x x x x x\n"
" x x x x x x x x x x x x x x x x x x x x x x x x\n"
" x x x x x x x x x x x x x x x x x x x x x x x x\n"
" x x x x x x x x x x x x x x x x x x x x x x x x\n"
" x x x x x x x x x x x x x x x x x x x x x x x x\n"
" x x x x x x x x x x x x x x x x x x x x x x x x\n"
" x x x x x x x x x x x x x x x x x x x x x x x x)\n"))
))
(define (main) (define (main)