From 76bacc826422073a9a6546fb5383c9a0cd8e5dae Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Wed, 26 Nov 2014 11:54:21 +0100
Subject: [PATCH] linux-boot: Error out when 'pre-mount' returns #f.

* gnu/build/linux-boot.scm (boot-system): Call 'error' when PRE-MOUNT
  returns #f.
---
 gnu/build/linux-boot.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/gnu/build/linux-boot.scm b/gnu/build/linux-boot.scm
index ea1971ff9c..fa6f417907 100644
--- a/gnu/build/linux-boot.scm
+++ b/gnu/build/linux-boot.scm
@@ -400,8 +400,9 @@ to it are lost."
 
        (when (procedure? pre-mount)
          ;; Do whatever actions are needed before mounting--e.g., installing
-         ;; device mappings.
-         (pre-mount))
+         ;; device mappings.  Error out when the return value is false.
+         (unless (pre-mount)
+           (error "pre-mount actions failed")))
 
        ;; Mount the specified file systems.
        (for-each mount-file-system