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