ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 22:08:16 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

packages: Sort Scheme file lists used by 'fold-packages'.

Browse source 
* gnu/packages.scm (scheme-files): Call 'sort' on result.
This commit is contained in:
Ludovic Courtès 2014-12-21 12:28:10 +01:00
parent ce44657aab
commit d95523fb8b
1 changed files with 23 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
gnu/packages.scm
View file

@ -105,8 +105,12 @@ (define %package-module-path
(append environment `((,%distro-root-directory . "gnu/packages"))))))
(define* (scheme-files directory)
"Return the list of Scheme files found under DIRECTORY."
(file-system-fold (const #t) ; enter?
"Return the list of Scheme files found under DIRECTORY, recursively. The
returned list is sorted in alphabetical order."
;; Sort entries so that 'fold-packages' works in a deterministic fashion
;; regardless of details of the underlying file system.
(sort (file-system-fold (const #t) ; enter?
(lambda (path stat result) ; leaf
(if (string-suffix? ".scm" path)
(cons path result)
@ -122,7 +126,8 @@ (define* (scheme-files directory)
result)
'()
directory
stat))
stat)
string<?))
(define file-name->module-name
(let ((not-slash (char-set-complement (char-set #\/))))