From d7ad3955a51c2c170d1be55581327585281fa755 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 21 Apr 2014 10:00:32 -0600 Subject: [PATCH] in-directory: keep subdirectory content in order The content produced by `directory-list` was reversed by an accumulator loop. --- racket/collects/racket/private/for.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/racket/collects/racket/private/for.rkt b/racket/collects/racket/private/for.rkt index a646491b73..223949ab2d 100644 --- a/racket/collects/racket/private/for.rkt +++ b/racket/collects/racket/private/for.rkt @@ -1954,7 +1954,7 @@ eof)]]))) (define (dir-list full-d d acc) - (for/fold ([acc acc]) ([f (in-list (directory-list full-d))]) + (for/fold ([acc acc]) ([f (in-list (reverse (directory-list full-d)))]) (cons (build-path d f) acc))) (define (next-body l d init-dir use-dir?)