[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/02: linux-boot: Error out when 'pre-mount' returns #f.
|
From: |
Ludovic Courtès |
|
Subject: |
01/02: linux-boot: Error out when 'pre-mount' returns #f. |
|
Date: |
Wed, 26 Nov 2014 12:38:54 +0000 |
civodul pushed a commit to branch master
in repository guix.
commit 76bacc826422073a9a6546fb5383c9a0cd8e5dae
Author: Ludovic Courtès <address@hidden>
Date: Wed Nov 26 11:54:21 2014 +0100
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 files changed, 3 insertions(+), 2 deletions(-)
diff --git a/gnu/build/linux-boot.scm b/gnu/build/linux-boot.scm
index ea1971f..fa6f417 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