summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2015-01-25 23:07:50 +0100
committerLudovic Courtès <ludo@gnu.org>2015-01-26 00:06:32 +0100
commitdfba54893e2c1a0b04ff05d289f15308907e7dbe (patch)
treea42130e5aee9346f9d6bf15ed514a12b3558dce7
parent836223f746c770e53e8ac1152324fcbdb7af5fc3 (diff)
downloadguix-dfba54893e2c1a0b04ff05d289f15308907e7dbe.tar.gz
guix-dfba54893e2c1a0b04ff05d289f15308907e7dbe.tar.xz
gnu: Raise an error when a bootstrap binary is not found.
* gnu/packages.scm (search-bootstrap-binary): Raise an error when FILE-NAME is not found.
-rw-r--r--gnu/packages.scm13
1 files changed, 10 insertions, 3 deletions
diff --git a/gnu/packages.scm b/gnu/packages.scm
index 263addb8be..57a3e21bd6 100644
--- a/gnu/packages.scm
+++ b/gnu/packages.scm
@@ -79,9 +79,16 @@
file-name)))))))
(define (search-bootstrap-binary file-name system)
- "Search the bootstrap binary FILE-NAME for SYSTEM."
- (search-path (%bootstrap-binaries-path)
- (string-append system "/" file-name)))
+ "Search the bootstrap binary FILE-NAME for SYSTEM. Raise an error if not
+found."
+ (or (search-path (%bootstrap-binaries-path)
+ (string-append system "/" file-name))
+ (raise (condition
+ (&message
+ (message
+ (format #f (_ "could not find bootstrap binary '~a' \
+for system '~a'")
+ file-name system)))))))
(define %distro-root-directory
;; Absolute file name of the module hierarchy.