From 35a762b5563a8a75edf96bbfb413ff3a03572e0e Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 27 Oct 2014 13:58:09 -0600
Subject: [PATCH] remove internal `sorted-dirlist` function

The result of `directory-list` is now sorted by default, so the
extra function is not needed.
---
 racket/collects/racket/file.rkt | 16 ++++------------
 1 file changed, 4 insertions(+), 12 deletions(-)

diff --git a/racket/collects/racket/file.rkt b/racket/collects/racket/file.rkt
index 6be16cbe3e..7a5bd1bd34 100644
--- a/racket/collects/racket/file.rkt
+++ b/racket/collects/racket/file.rkt
@@ -45,14 +45,6 @@
 
 (require "private/portlines.rkt")
 
-;; utility: sorted dirlist so functions are deterministic
-(define (sorted-dirlist [dir (current-directory)])
-  (let* ([ps (directory-list dir)]
-         [ps (map (lambda (p) (cons (path->string p) p)) ps)]
-         [ps (sort ps (lambda (p1 p2) (string<? (car p1) (car p2))))]
-         [ps (map cdr ps)])
-    ps))
-
 (define (delete-directory/files path
                                 #:must-exist? [must-exist? #t])
   (unless (path-string? path)
@@ -63,7 +55,7 @@
       (delete-file path)]
      [(directory-exists? path)
       (for-each (lambda (e) (loop (build-path path e)))
-                (sorted-dirlist path))
+                (directory-list path))
       (delete-directory path)]
      [else
       (when must-exist?
@@ -91,7 +83,7 @@
            (for-each (lambda (e)
                        (loop (build-path src e)
                              (build-path dest e)))
-                     (sorted-dirlist src))]
+                     (directory-list src))]
           [else (raise-not-a-file-or-directory 'copy-directory/files src)])))
 
 (define (make-directory* dir)
@@ -625,7 +617,7 @@
                (lambda (acc [descend? #t])
                  (if descend?
                    (do-paths (map (lambda (p) (build-path path p))
-                                  (sorted-dirlist path))
+                                  (directory-list path))
                              acc)
                    acc)))]
           [(file-exists? path) (keep-fst (f path 'file acc))]
@@ -635,7 +627,7 @@
     (cond [(null? paths) acc]
           [else (do-paths (cdr paths) (do-path (car paths) acc))]))
   (define (to-path s) (if (path? s) s (string->path s)))
-  (if path (do-path (to-path path) init) (do-paths (sorted-dirlist) init)))
+  (if path (do-path (to-path path) init) (do-paths (directory-list) init)))
 
 (define (find-files f [path #f] #:follow-links? [follow-links? #t])
   (reverse