~ruther/guix-local: gnu: Raise an error when a bootstrap binary is not found.

dfba54893e2c1a0b04ff05d289f15308907e7dbe — Ludovic Courtès 11 years ago 836223f

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

* gnu/packages.scm (search-bootstrap-binary): Raise an error when
  FILE-NAME is not found.

patch browse .tar.gz

1 files changed, 10 insertions(+), 3 deletions(-)

M gnu/packages.scm

M gnu/packages.scm => gnu/packages.scm +10 -3

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