From 3267738425fc2b0bc17a396e2a5ba9c4d05b4dd8 Mon Sep 17 00:00:00 2001
From: Sam Tobin-Hochstadt <samth@racket-lang.org>
Date: Wed, 29 Feb 2012 12:01:37 -0500
Subject: [PATCH] Sort paths before fuzzing, to make drdr runs reproducible.

---
 collects/tests/racket/stress/fuzz.rkt | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/collects/tests/racket/stress/fuzz.rkt b/collects/tests/racket/stress/fuzz.rkt
index 1c68bd67fd..6e7c56e10f 100644
--- a/collects/tests/racket/stress/fuzz.rkt
+++ b/collects/tests/racket/stress/fuzz.rkt
@@ -46,8 +46,12 @@
   (random-seed global-seed)
   (let loop ()
     (cond [file (run file seed0)]
-          [dir (for ([p (in-directory dir)]
-                     #:when (regexp-match #rx"\\.zo" p))
-                 (run p seed0))]
+          [dir 
+	   (define files (sort (for/list ([f (in-directory dir)]
+					  #:when (regexp-match #rx"\\.zo" f))
+			         f)
+			       #:key path->string
+			       string<?))
+	   (for ([p files]) (run p seed0))]
           [else (printf "Nothing to do.\n")])
     (when forever? (loop))))