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.
2012-10-18 23:36:29 +02:00 · 2012-10-18 23:36:29 +02:00 · a5a349f302
commit a5a349f302
parent d6e8777688
1 changed files with 4 additions and 1 deletions
--- a/distro/packages/base.scm
+++ b/distro/packages/base.scm
@ -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"))