From 76bacc826422073a9a6546fb5383c9a0cd8e5dae Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Wed, 26 Nov 2014 11:54:21 +0100
Subject: 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(-)
(limited to 'gnu')
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
--
cgit v1.2.3