From 980a9fbd4dc23950e554bc52b3294f7427615be0 Mon Sep 17 00:00:00 2001 From: evdubs Date: Thu, 6 Aug 2020 17:19:43 -1000 Subject: [PATCH] Ensure sorting is applied for in-directory In initial-state, the call to dir-list will sort the results of directory-list. However, in initial-state, there is a different path that will call directory-list without sorting. This change makes these paths consistent. --- 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 164222eb6c..4fe8edb481 100644 --- a/racket/collects/racket/private/for.rkt +++ b/racket/collects/racket/private/for.rkt @@ -2335,7 +2335,7 @@ (if orig-dir (dir-list (path->complete-path orig-dir init-dir) orig-dir null) - (directory-list init-dir))) + (sort (directory-list init-dir) path