03/04: gnu: make-u-boot-package: Sort printed configurations.

[Danny Milosavljevic]

dannym pushed a commit to branch master
in repository guix.

commit 30ef146c996983cdcca7c0d17b2dee2fe31806d4
Author: Danny Milosavljevic <address@hidden>
Date:   Sat May 12 10:54:19 2018 +0200

    gnu: make-u-boot-package: Sort printed configurations.
    
    * gnu/packages/bootloaders.scm (make-u-boot-package): Sort printed
    configurations.
---
 gnu/packages/bootloaders.scm | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

diff --git a/gnu/packages/bootloaders.scm b/gnu/packages/bootloaders.scm
index 3de70e2..22b88dd 100644
--- a/gnu/packages/bootloaders.scm
+++ b/gnu/packages/bootloaders.scm
@@ -393,14 +393,15 @@ also initializes the boards (RAM etc).")
                      (zero? (apply system* "make" `(,@make-flags 
,config-name)))
                      (begin
                        (display "Invalid board name. Valid board names are:")
-                       (let ((suffix-len (string-length "_defconfig")))
-                         (scandir "configs"
-                                  (lambda (file-name)
-                                    (when (string-suffix? "_defconfig" 
file-name)
-                                      (format #t
-                                              "- ~A\n"
-                                              (string-drop-right file-name
-                                                                 
suffix-len))))))
+                       (let ((suffix-len (string-length "_defconfig"))
+                             (entries (scandir "configs")))
+                         (for-each (lambda (file-name)
+                                     (when (string-suffix? "_defconfig" 
file-name)
+                                       (format #t
+                                               "- ~A\n"
+                                               (string-drop-right file-name
+                                                                  
suffix-len))))
+                                   (sort entries string<)))
                        #f)))))
            (replace 'install
              (lambda* (#:key outputs #:allow-other-keys)