suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Ensure sorting is applied for in-directory

Browse Source 
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.
This commit is contained in:
evdubs 2020-08-06 17:19:43 -10:00 committed by Matthew Flatt
parent 776b69e399
commit 980a9fbd4d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/collects/racket/private/for.rkt
View File

@ -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<?)))
(define in-directory
(case-lambda