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.
This commit is contained in:
Ludovic Courtès 2015-01-25 23:07:50 +01:00
parent 836223f746
commit dfba54893e
1 changed files with 10 additions and 3 deletions

View File

@ -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.