diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-01-25 23:07:50 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-01-26 00:06:32 +0100 |
| commit | dfba54893e2c1a0b04ff05d289f15308907e7dbe (patch) | |
| tree | a42130e5aee9346f9d6bf15ed514a12b3558dce7 | |
| parent | 836223f746c770e53e8ac1152324fcbdb7af5fc3 (diff) | |
| download | gnu-guix-dfba54893e2c1a0b04ff05d289f15308907e7dbe.tar gnu-guix-dfba54893e2c1a0b04ff05d289f15308907e7dbe.tar.gz | |
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.scm | 13 |
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. |