From 680d29d9cce18b6e04eaae16a122fc5c09343dc8 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Sun, 11 Aug 2013 16:05:19 -0500
Subject: [PATCH] adjust some calls to sort: use symbol<? and use strict
 predicates (to get stability)

---
 pkgs/drracket-pkgs/drracket/drracket/private/rep.rkt        | 2 +-
 .../drracket-pkgs/drracket/help/private/save-bug-report.rkt | 6 ++----
 pkgs/gui-pkgs/gui-lib/framework/private/panel.rkt           | 2 +-
 pkgs/gui-pkgs/gui-lib/framework/private/text.rkt            | 4 ++--
 racket/collects/racket/contract/private/arr-i.rkt           | 2 +-
 racket/collects/racket/contract/private/arrow.rkt           | 2 +-
 6 files changed, 8 insertions(+), 10 deletions(-)

diff --git a/pkgs/drracket-pkgs/drracket/drracket/private/rep.rkt b/pkgs/drracket-pkgs/drracket/drracket/private/rep.rkt
index 40d7777dd8..b1b2dfcb72 100644
--- a/pkgs/drracket-pkgs/drracket/drracket/private/rep.rkt
+++ b/pkgs/drracket-pkgs/drracket/drracket/private/rep.rkt
@@ -732,7 +732,7 @@ TODO
               (hash-set! ht (car arrs) n)
               (loop (cdr arrs) (+ n 1))))
           (let* ([unsorted (hash-map ht list)]
-                 [sorted (sort unsorted (λ (x y) (<= (cadr x) (cadr y))))]
+                 [sorted (sort unsorted < #:key cadr)]
                  [arrs (map car sorted)])
             arrs)))
       
diff --git a/pkgs/drracket-pkgs/drracket/help/private/save-bug-report.rkt b/pkgs/drracket-pkgs/drracket/help/private/save-bug-report.rkt
index 7bb3ec5248..d5733cd808 100644
--- a/pkgs/drracket-pkgs/drracket/help/private/save-bug-report.rkt
+++ b/pkgs/drracket-pkgs/drracket/help/private/save-bug-report.rkt
@@ -35,8 +35,7 @@
                            subject
                            description
                            how-to-repeat)
-                         string<=?
-                         #:key symbol->string))
+                         symbol<?))
 
 ;; id : number
 ;; open? : boolean?
@@ -74,8 +73,7 @@
   (match a-saved-report
     [(struct saved-report ((? number?)
                            (list (list (? symbol? keys) vals) ...)))
-     (and (equal? (sort keys string<=? #:key symbol->string)
-                  valid-keys)
+     (and (equal? (sort keys symbol<?) valid-keys)
           (for/and ([key (in-list keys)]
                     [val (in-list vals)])
             (case key
diff --git a/pkgs/gui-pkgs/gui-lib/framework/private/panel.rkt b/pkgs/gui-pkgs/gui-lib/framework/private/panel.rkt
index 9b4893baa5..9e44987484 100644
--- a/pkgs/gui-pkgs/gui-lib/framework/private/panel.rkt
+++ b/pkgs/gui-pkgs/gui-lib/framework/private/panel.rkt
@@ -862,7 +862,7 @@
 ;; has been shrunk one size, larger sizes for that child will not be
 ;; considered, and shrinking always proceeds from the left to the right.
 (define (candidate-sizes lolon)
-  (define all-boxes (map (λ (x) (box (sort x >=))) lolon))
+  (define all-boxes (map (λ (x) (box (sort x >))) lolon))
   (define answer '())
   (define (record-current)
     (set! answer (cons (map car (map unbox all-boxes)) answer)))
diff --git a/pkgs/gui-pkgs/gui-lib/framework/private/text.rkt b/pkgs/gui-pkgs/gui-lib/framework/private/text.rkt
index 436f7a4bb1..76122a31a3 100644
--- a/pkgs/gui-pkgs/gui-lib/framework/private/text.rkt
+++ b/pkgs/gui-pkgs/gui-lib/framework/private/text.rkt
@@ -1311,7 +1311,7 @@
         (hash-map search-bubble-table
                   (λ (x true) 
                     (list x (if replace-mode? 'light-search-color 'normal-search-color)))))
-       string<=?
+       string<?
        #:key (λ (x) (format "~s" (car x)))))
     
     
@@ -4039,7 +4039,7 @@ designates the character that triggers autocompletion
                                   (map sym->mpi (exported-index-desc-from-libs desc))))
                    (hash-set! ht (symbol->string name) #t)))))))
        (xref-index xref))
-      (sort (hash-map ht (λ (x y) x)) string<=?))))
+      (sort (hash-map ht (λ (x y) x)) string<?))))
 
 ;; ============================================================
 ;; auto complete example code
diff --git a/racket/collects/racket/contract/private/arr-i.rkt b/racket/collects/racket/contract/private/arr-i.rkt
index e7e76bcff9..5446cad234 100644
--- a/racket/collects/racket/contract/private/arr-i.rkt
+++ b/racket/collects/racket/contract/private/arr-i.rkt
@@ -647,7 +647,7 @@
        (set! blame-ids (cons (cons (build-blame-identifier indy? dom? id)
                                    (vector (syntax-e id) indy? dom?))
                              blame-ids)))))
-  (set! blame-ids (sort blame-ids string<=? #:key (λ (x) (symbol->string (syntax-e (car x))))))
+  (set! blame-ids (sort blame-ids symbol<? #:key (λ (x) (syntax-e (car x)))))
   
   (values
    (map cdr blame-ids)
diff --git a/racket/collects/racket/contract/private/arrow.rkt b/racket/collects/racket/contract/private/arrow.rkt
index e23eb9dd37..ebea9acc97 100644
--- a/racket/collects/racket/contract/private/arrow.rkt
+++ b/racket/collects/racket/contract/private/arrow.rkt
@@ -1853,7 +1853,7 @@
                                           (loop (cdr ars) acc)]))]))])
          (and min-at-least
               (begin
-                (let loop ([counts (sort (filter number? arity) >=)])
+                (let loop ([counts (sort (filter number? arity) >)])
                   (unless (null? counts)
                     (let ([count (car counts)])
                       (cond