diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2012-10-18 23:36:29 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2012-10-18 23:36:29 +0200 |
| commit | a5a349f30289037e1e32886478738bf88884c629 (patch) | |
| tree | eef3e58f0667b6bf5740b75dd8d5568f0a1b0efb /distro/packages/base.scm | |
| parent | d6e877768821da5859d0c5774d4cea57941fde8b (diff) | |
| download | guix-a5a349f30289037e1e32886478738bf88884c629.tar.gz | |
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.
Diffstat (limited to 'distro/packages/base.scm')
| -rw-r--r-- | distro/packages/base.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/distro/packages/base.scm b/distro/packages/base.scm index 5f23bc0064..5e0b30ce89 100644 --- 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")) |