distro: Provide a more descriptive report when a bootstrap binary is missing.

* distro/packages/base.scm (%bootstrap-guile): Error out when
  `search-bootstrap-binary' returns #f.
This commit is contained in:
Ludovic Courtès 2012-10-18 23:36:29 +02:00
parent d6e8777688
commit a5a349f302
1 changed files with 4 additions and 1 deletions

View File

@ -1391,7 +1391,10 @@ with the Linux kernel.")
(build (lambda* (store name source inputs #:key outputs system)
(define (->store file)
(add-to-store store file #t #t "sha256"
(search-bootstrap-binary file system)))
(or (search-bootstrap-binary file
system)
(error "bootstrap binary not found"
file system))))
(let* ((tar (->store "tar"))
(xz (->store "xz"))