04/04: gnu: make-u-boot-package: Print errors to (current-error-port).

[Danny Milosavljevic]

dannym pushed a commit to branch master
in repository guix.

commit ac30d18c0ba668a91547c97b3637dfd9caabbd37
Author: Danny Milosavljevic <address@hidden>
Date:   Sat May 12 10:56:25 2018 +0200

    gnu: make-u-boot-package: Print errors to (current-error-port).
    
    * gnu/packages/bootloaders.scm (make-u-boot-package): Print errors to
    (current-error-port).
---
 gnu/packages/bootloaders.scm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/bootloaders.scm b/gnu/packages/bootloaders.scm
index 22b88dd..ff9078b 100644
--- a/gnu/packages/bootloaders.scm
+++ b/gnu/packages/bootloaders.scm
@@ -392,12 +392,13 @@ also initializes the boards (RAM etc).")
                  (if (file-exists? (string-append "configs/" config-name))
                      (zero? (apply system* "make" `(,@make-flags 
,config-name)))
                      (begin
-                       (display "Invalid board name. Valid board names are:")
+                       (display "Invalid board name. Valid board names are:"
+                                (current-error-port))
                        (let ((suffix-len (string-length "_defconfig"))
                              (entries (scandir "configs")))
                          (for-each (lambda (file-name)
                                      (when (string-suffix? "_defconfig" 
file-name)
-                                       (format #t
+                                       (format (current-error-port)
                                                "- ~A\n"
                                                (string-drop-right file-name
                                                                   
suffix-len))))
@@ -473,6 +474,9 @@ also initializes the boards (RAM etc).")
 (define-public u-boot-novena
   (make-u-boot-package "novena" "arm-linux-gnueabihf"))
 
+(define-public u-boot-versatilepb
+  (make-u-boot-package "vesx" "arm-linux-gnueabihf"))
+
 (define-public vboot-utils
   (package
     (name "vboot-utils")