linux-boot: Error out when 'pre-mount' returns #f.

* gnu/build/linux-boot.scm (boot-system): Call 'error' when PRE-MOUNT
  returns #f.
This commit is contained in:
Ludovic Courtès 2014-11-26 11:54:21 +01:00
parent 2d2a2bacc0
commit 76bacc8264
1 changed files with 3 additions and 2 deletions

View File

@ -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