From a5a349f30289037e1e32886478738bf88884c629 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Thu, 18 Oct 2012 23:36:29 +0200 Subject: 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. --- distro/packages/base.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'distro/packages/base.scm') 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")) -- cgit 1.4.1