From 000b532600d10ecc2e0a4227860866b253c3efa2 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)

original commit: 680d29d9cce18b6e04eaae16a122fc5c09343dc8
---
 pkgs/gui-pkgs/gui-lib/framework/private/panel.rkt | 2 +-
 pkgs/gui-pkgs/gui-lib/framework/private/text.rkt  | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/pkgs/gui-pkgs/gui-lib/framework/private/panel.rkt b/pkgs/gui-pkgs/gui-lib/framework/private/panel.rkt
index 9b4893ba..9e449874 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 436f7a4b..76122a31 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