From 8584be45708f961924eaf3d2e41db7919a83508e Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Tue, 8 Aug 2006 21:29:03 +0000 Subject: [PATCH] * Use `sort' instead of `quicksort' * Tweak svn:ignore properties svn: r3990 --- collects/macro-debugger/syntax-browser/pretty-range.ss | 2 +- collects/macro-debugger/view/gui.ss | 10 +++++----- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/collects/macro-debugger/syntax-browser/pretty-range.ss b/collects/macro-debugger/syntax-browser/pretty-range.ss index 78a5c118a3..600e15f140 100644 --- a/collects/macro-debugger/syntax-browser/pretty-range.ss +++ b/collects/macro-debugger/syntax-browser/pretty-range.ss @@ -24,7 +24,7 @@ (hash-table-get ranges obj (lambda _ null))) (define/public (all-ranges) - (quicksort + (sort (apply append (hash-table-map ranges diff --git a/collects/macro-debugger/view/gui.ss b/collects/macro-debugger/view/gui.ss index 4d6309669f..e5b3ddf5f0 100644 --- a/collects/macro-debugger/view/gui.ss +++ b/collects/macro-debugger/view/gui.ss @@ -541,11 +541,11 @@ (define (oid id) (*i "hide" 'identifier id)) (define (tid id) (*i "show" 'show-identifier id)) (let ([choices - (quicksort (append (map om opaque-modules) - (map oid opaque-ids) - (map tid transparent-ids)) - (lambda (a b) - (string<=? (car a) (car b))))]) + (sort (append (map om opaque-modules) + (map oid opaque-ids) + (map tid transparent-ids)) + (lambda (a b) + (string<=? (car a) (car b))))]) (send look-ctl clear) (for-each (lambda (c) (send look-ctl append (car c) (cdr c))) choices))))