me/guix
Archived
1
0
Fork 0
Code Activity

gnu: Raise an error when a bootstrap binary is not found.

Browse source 
* 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
Show stats Download patch file Download diff file Expand all files Collapse all files

13
gnu/packages.scm
View file

@ -79,9 +79,16 @@
file-name))))))) file-name)))))))
(define (search-bootstrap-binary file-name system) (define (search-bootstrap-binary file-name system)
"Search the bootstrap binary FILE-NAME for SYSTEM." "Search the bootstrap binary FILE-NAME for SYSTEM. Raise an error if not
(search-path (%bootstrap-binaries-path) found."
(string-append system "/" file-name))) (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 (define %distro-root-directory
;; Absolute file name of the module hierarchy. ;; Absolute file name of the module hierarchy.