From 1b4a3c7286c716059a43236cbce28813f22dbb5f Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Tue, 13 Sep 2005 18:35:07 +0000 Subject: [PATCH] Sort collections according to the last element in the path, so they are orderered deterministically. (Otherwise, order changes based on where your home directory and your plt tree are.) svn: r851 --- collects/setup/getinfo.ss | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/setup/getinfo.ss b/collects/setup/getinfo.ss index 761c964933..194ba8e8e7 100644 --- a/collects/setup/getinfo.ss +++ b/collects/setup/getinfo.ss @@ -158,4 +158,6 @@ (quicksort unsorted compare-directories)))) (define (compare-directories a b) - (bytesbytes a) (path->bytes b)))) + (let-values ([(base1 name1 dir?1) (split-path a)] + [(base2 name2 dir?2) (split-path b)]) + (bytesbytes name1) (path->bytes name2)))))