disable a broken responsiveness optimization

rfindler · rmculpepper · commit 1f6581fa44eb · 2013-01-28T13:18:48.000-05:00
(cherry picked from commit c8bee5a)
diff --git a/collects/drracket/private/syncheck/traversals.rkt b/collects/drracket/private/syncheck/traversals.rkt
@@ -1134,22 +1134,10 @@
                                   (for/or ([(level id-set) (in-hash phase-to-map)])
                                     (get-ids id-set new-id))))))))
                       #t))
-               (define max-to-send-at-once 30)
-               (let loop ([loc-lst loc-lst]
-                          [len (length loc-lst)])
-                 (cond
-                   [(<= 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))]))))))))
+               (send defs-text syncheck:add-rename-menu
+                     id-as-sym
+                     loc-lst
+                     name-dup?)))))))
     
     ;; remove-duplicates-stx : (listof syntax[original]) -> (listof syntax[original])
     ;; removes duplicates, based on the source locations of the identifiers
diff --git a/collects/tests/drracket/syncheck-test.rkt b/collects/tests/drracket/syncheck-test.rkt
@@ -1121,7 +1121,35 @@
                          "   (super-new)\n"
                          "\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)
