[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
04/04: gnu: make-u-boot-package: Print errors to (current-error-port).
From: |
Danny Milosavljevic |
Subject: |
04/04: gnu: make-u-boot-package: Print errors to (current-error-port). |
Date: |
Sat, 12 May 2018 04:57:59 -0400 (EDT) |
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")