diff options
| -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. |